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ABSTRACT 


THE FUNCTION OF THE DZV11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE D2V11 
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 


PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EITHER ‘AUTO SIZING’ OR 
INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOO=1 AT START TIME. AUTO 
SIZING WILL BE DONE ONLY THE FIRST TIME THE PROGRAM IS STARTED AND 
SWO7=0 AND SWO00=0 AND SWO3=0. THE ety IS DESIGNED TO DETECT 


CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS (CVDZA.CVDZB,AND CVDZC) 


ONE SYSTEM MODULE FOR DEC X/11 (CXDZBA), AND AN OVERLAY FOR ITEP (CVDZD). 


wel tease CVDZB WILL TEST ALL LOGICAL FUNCTIONS OF THE DZ2V11 
CVDZC 1S DESIGNED AS A NON@CHAINABLE STANDALONE DIAGNOSTIC PROVIDING THE 
OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL DZV11 EIA CABLES. 


Ah p dd D eee eee RRR E SELLE TELS TIT ITITITITT TTT ITTTITITIIITitTitiLititititty 
* 33GPA 
* NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 11/21) 
* BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN 


* IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: 

® 

e LSI-11, 11/2, AND 11/23 SBC 11/21 

® 

* CSR RANGE: 160010 TO 167770 174000 TO 177770 
* VECTOR RANGE: 300 TO 770 300 TO 370 


* AUTO-SIZING FOR... 
* ...CSR AND VECTOR: ENABLED DISABLED * 
* oe 


—VXVXVXXVVODWVVEXVOEODEOGA 


THE RELEASE CVDZAD WAS DUE 70 THE FACT THAT THE D2ZV11 DIAGNOSTIC 
WAS UPDATED TO SUPPORT THE USER FRIENDLY DIAGNOSTIC INTERFACE. 


REQUIREMENTS 

EQUIPMENT 

AN LSI11 CPU WITH MINIMUM 4K OF MEMORY. 
ot (OR EQUIVALENT FOR CONSOLE) 


INTERFACE MODULE 
H329 STAGGERED TURNAROUND CONNECTCR. 
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H325 CABLE TURNAROUND CONNECTOR. 
NOTE: “ia. CONNECTOR IS NEEDED IN ORDER TO TEST THE 
STORAGE 


PROGRAM WILL USE ALL 4K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 1740 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY OPERATOR AFTER PARAMETERS WAVE BEEN INPUT FROM CONSOLE 
(SWOO=1); OR AFTER THE ‘AUTO SIZING’ HAS BEEN DONE. THESE LOCATIONS 
MAY BE CHANGED IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 
PARAMETERS ARE REQUIRED. 


LOADING PROCEEDURE 
METHOD 


ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE ABSOLUTE 
LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH AS DISK 
+MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 


ABSOLUTE LOADER STARTING ADDRESS *500 
MEMORY * SIZE 


STARTING THE PROCESSOR AT THE ABSOLUTE LOADER STARTING ADDRESS WILL LOAD 
THE DIAGNOSTIC INTO MEMORY. 


STARTING PROCEEDURE 


A. SET SWR TO ZERO FOR “AUTO SIZING’ OR SET SWOO=1 FOR USER PARAMETER 
INPUT FROM CONSOLE TERMINAL. NOTE: LOC. 000176 IS USED 4 SOF TWARE 
SWITCH REGISTER IN ALL OF THE DZV11 DIAGNOSTICS. a 4.1 ) 

ON THE FIRST STARTUP OF THE DIAGNOSTIC IF SwWO7=1 "sw00=0 THE 
PROGRAM WILL ASSUME THAT THE roo TABLE HAS S EEN AL ALREADY BUILT 
FROM A PREVIOUS DZV11_ DIAGNOSTIC R NOTE: DZ2V11_ DIAGNOSTIC 
WILL OVERLAY THE STATUS TABLE WHEN L LOADED TO PRESERVE hid — 
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AND THUS WILL NOT ALTER A PREVIOUSLY BUILT TABLE. 

B. START THE DIAGNOSTIC AT LOC. 200(8). THE PROGRAM WILL TYPE MAINDEC 
AND PROGRAM WAMES (IF THIS WAS THE FIRST START UP OF THE PROGRAM) 
3 —B4 FOLLOWING: (ON THE FIRST PROGRAM RUN OR IF PARAMETERS 

A 


‘MAP OF DZV11 STATUS’ 

1500 160100 

1502 000300 

1504 000017 

1506 =: 017470 

1510 000000 
THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS TABLE 
STARTING AT ADD. 1500 IN THE PROGRAM. THE STATUS TABLE MUST BE 


VERIFIED BY THE USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 
TABLE SEE SECTION 8.4 FOR HELP. 


THE PROGRAM WILL TYPE ‘‘RUNNING’’ AND PROCEED TO RUN THE DIAGNOSTIC. 
CONTROL SWITCH SETTINGS 


NOTE: THIS PROGRAM UTILIZES A «yy SWITCH REGISTER WHICH MAY BE 
MODIFIED BY CHANGING LOC. 176 OR BY TYPING CONTROL ‘'G’’ (*G) ON 
THE CONSOLE TERMINAL WHILE THE PROGRAM IS RUNNING. 


15 SET: HALT ON ERROR 

14 SET: LOOP ON CURRENT TEST 

13 SET: INHIBIT ERROR PRINT OUT 

12 SET: INHIBIT **ALLe® TYPE OUT/BELL ON ERROR. 

11 SET: INHIBIT ITERATIONS. (QUICK PASS) 

10 SET: ESLAPE TO NEXT TEST 

SW 09 SET: LOOP WITH CURRENT DATA 

SW 08 SET: CATCH ERROR AND LOOP ON IT 

SW 07 SET: NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING AND 
IF SWOO=0 THEN THE PROGRAM WILL ASSUME THAT THE STATUS MAP 
HAS BEEN BUILT FROM A PREVIOUS DZV11 DIAGNOSTIC RUN. 

SW 06 SET: RESELECT DZ2V11°S DESIRED ACTIVE 

SW05 SET: RESERVED 

Sw 04 SET: SELECT DELAY PARAMETER (SEE SEC. 4.1.1) 

Sw 03 SET: EXTRA PARAMETER INPUT (SEE SEC. 4.1.1) 

SW 02 SET: LOCK ON SELECTED TEST 

SW 01 SET: RESTART PROGRAM AT SELECTED TEST 

SW 00 SET: GET USERS PARAMETERS FROM CONSOLE 


AANNNYN 
eecece 


SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 


Sw 00 - USERS PARAMETERS FROM ene ppl THIS yg be AT “— 
TIME ALLOWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 

FOLLOWING PARAMETERS: BASE DEVICE ADDRESS, BASE VECTOR ADDRESS, 

MODE OF OPERATION (EXTERNAL, INTERNAL, OR STAGGERED). AND THE 
F_DZV11'S THAT ARE RUNNING, USING THIS SWITCH ALONE WILL 


NUMBER 0 
DEFAULT THE FOLLOWING PARAMETERS: ALL 4 LINES ARE SET TO BE 
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Sw 03 


SW 04 


TESTED ON EACH DZV11, THE DEFAULT BAUD RATE IS SET AT 19.2 KBAUD 
AND THE CHARACTER LENGTH FOR THE MAJORITY OF TESTING IS SET AT 
EIGHT BITS PER CHARACTER WITH TWO STOP BITS. 


EXTKA PARAMETER INPUT. SETTING THIS SWITCH AT START UP TIME 

PROVIDES THE USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 
TESTING AND TO SET THE DEFAULT BAUD RATE USED FOR THE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 


SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH are 
DETERMINES THE LENGTH OF TIME THE PROGRAM STALLS WAITING FOR 
CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 
= ha BAUD RATE at Aa | WHEN RUNNING THE PROGRAM ON AN LSI11 
WITH MOS MEMORY. WHEN RUNNING THIS PROGRAM ON A_ PROCESSOR 
WITH A FASTER MEMORY SPEED THIS DELAY COUNT SHOULD BE ADJUSTED 
———— yy: FOLLOWING DEFAULTED VALUES: 


3 FOR 

1560 sTIME FOR 75 BAUD 
1120 sTIME FOR 110 BAUD 
0750 sTIME FOR 134 BAUD 
0660 sTIME FOR 150 BAUD 
0330 sTIME FOR 300 BAUD 
0150 sTIME FOR 600 BA 

0060 sTIME FOR 1200 BAUD 
0040 sTIME FOR 1 BAUD 
0030 sTIME FOR 2000 BAUD 
0020 sTIME FOR 2400 BAUD 
0010 sTIME FOR 3600 BAUD 
0001 sTIME FOR 4800 BAUD 
0001 sTIME FOR 7200 BAUD 
0001 sTIME FOR 9600 BAUD 
0001 sTIME FOR 19.2 KBAUD 


4.1.2 SWITCH REGISTER RESTRICTIONS 


SW 06 


Sw 01 


rhe eng DZV11°S DESIRED ACTIVE. A MESSAGE IS Hes OUT ON THE 
CONSOLE TERMINAL ASKING THE OPERATOR TO TYPE A BIT MAP OF THE 
DZV"S DESIRED ACTIVE. USING THIS SWITCH ALLOWS LOCATION DZVACTV 
A ALTERED (SEE SEC. 8.3 FOR A DESCRIPTION OF THIS LOCATION). 


EXAMPLE: 

IF THE —1 CORRESPONDING TO THE DZV11°S NUMBERED ZERO, TwO, 
AND FOUR IN THE DZV11_ STATUS MAP (LOC. 1500 THROUGH 1740) ARE TO 
BE TESTED, TYPE IN: 

THIS WILL SET BITS ZERO, TWO, AND FOUR IN LOCATION DZVACTV. ALL 
REMAINING DEVICES IN THE STATUS MAP WILL THEN NOT BE TESTED. 


RESTART PROGRAM AT sei scree TEST IT IS STRONGLY SUGGESTED 

THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE TRYING TO SELECT A 
TEST THAT IS NOT IN THE ORDER OF SEQUENCE THE REASON BEING IS 
THAT THE PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
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NOTE: IF RUNNING MULTIPLE DZV11°S; THE Rgds YOU DESIRE 10 6E 
UNDER TEST MUST BE eee BY LS USE OF SW06 BEFORE LOCKING ON 
THE TEST. IN OTHER WORDS; EACH TIME THE PROGRAM IS _ STARTED; 
THE FIRST DZV11 WILL BE SELECTED TO BE UNDER TEST UNLESS SW06 IS 
USED TO SELECT ONLY ONE. 


SW 09 LOOP ON CURRENT “a's THIS SWITCH WILL ONLY WORK IF CALL 
*scoPi" IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA, ONE PATTERN CAN'T BE SINGLED OUT. 
THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 


SW 04 SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
eS ar et el WILL CAUSE VALID TESTS TO FAIL. 
sec. 


SWITCH REGISTER PRIORITIES 
ERROR SWITCHES 


1, SW 12 DELETE PRINT OUT/BELL ON ERROR. 
. SW 13 DELETE ERROR PRINTUUT. 

3. SW15 HALT ON THE ERROR. 

° SW 08 GO TO BEGINNING OF THE TEST(ON ERROR). 

° SW 10 GOTO NEXT TEST(ON ERROR). 


SCOPE SWITCHES 


1. ve 09 (IF ENABLED BY ‘"SCOP1"). IF AN ‘®* IS PRINTED IN FRONT OF 
TEST NO. ON AN ERROR REPORT (EX. *TEST NO. 10) SwO9 IS 
INCORPORATED IN THAT TEST AND THEREFORE SWO9 IS *USUALLY* THE 
BEST SWITCH FOR THE SCOPE LOOP (SW14=0, SW10=0, SwO9=1, Sw08=0) 
IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 
ISOLATE SIGNAL PROBLEMS ON THE DZV11 MODULE. 
If § IS NOT ENABELED; AND THERE IS A *HARD® ERROR 
(CONSTANT); SwWO 


8 IS BEST. 
2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SWO1 AND 
SWO2 SET WHICH WILL ALLOW THE USER TO LOCK ON A satis TEST, 
OR ELSE SET SW1i4 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
eS  ahaiame TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 
3. SW 14 LOOP ON CURRENT TEST. 


STARTING ADDRESS 
SA 200 = THE STARTING ADDRESS FOR ANY DZV11 DIAGNOSTIC IS LOC. 200 
NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS UNDER 


ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER *ALL* 
1 IATLABLE DZV11S ARE TESTED THE PROGRAM WILL RETURN TO *XXDP OR 


i 
— | 
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6046 D2V11°S IN THE SYSTEM. 


5991 
444 5. OPERATING PROCEEDURE 
5994 WHEN THE PROGRAM IS INITIALLY STARTED, MESSAGES AS DESCRIBED IN SECTION 
4844 FOUR WILL Bt PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 
5997 
5998 
5999 
6000 
8 5.1 NORMAL START OF DIAGNOSTIC 
6003 ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200, IF Sw00=1 
—8 THEN THE FOLLOWING QUESTIONS ARE ASKED AND MUST BE ANSWERED: 
6006 “IST CSR ADDRESS (160000:167770): ‘* 
6007 VOU MUST TYPE IN THE FIRST DZV11 CSR IN THE SYSTEM YOU WISH 
6008 TESTING TO BEGIN AT. RANGE: 160000:167770 
6010 "IST VECTOR ADDRESS (300:770): ‘* 
6011 YOU MUST TYPE IN THE vecron OF THE FIRST DZ2V11 IN THE SYSTEM 
pr dt UNDER TEST. RANGE 300:770 
6014 “MAINTENANCE MODE 
6015 CEXTERNAL <H325> E)) 
6016 CINTERNAL <DICSRO3=1>(1)) 
6017 CSTAGGERED <H329> (S)] : 
6018 TYPE “E*’ OR “*I"' OR 3* DEPENDING ON WHICH MODE YOU WISH TO RUN 
6019 IN. IF RUNNING ‘EXTERNAL’; ALL SELECTED LINES MUST BE 
cant TERMINATED BY AN H325 TEST CONNECTOR . 
6022 w OF vag <IN OCTAL> (1:20): °° 
6023 YPE TOTAL NUMBER OF DZV11°S TO BE TESTED IN THE SYSTEM. RANGE 
prs} 15 1 THRU 20 IN OCTAL. 
8 weeeceeee IF SWO3=1 THEN THE FOLLOWING WILL BE PRINTED eeeeceeee 
6028 “LINES ACTIVE BY BIT <IN OCTAL> (001:017):" 
6029 EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
6030 SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
8 SELECTED (0-1, 2-3). 
6033 "DEFAULT Ay RATE <IN OCTAL> (00:17): °° 
6034 THIS GIVES THE USER A CHANCE TO CHANGE THE DEFAULT BAUD RATE 
6035 USED IN APP. 90% OF THE TEST. BAUD RATE CHOICES ARE: 
6036 “00°C =50 BAUD),"01° 75 BAUD) "02" 110 BAUD) ,"03'( 134 BAUD), 
6037 *04°"( 150 BAUD) "05°" 300 26 BAUD) .°07°°(1200 BAUD), 
6038 **10°(1800 BAUD) .°'11°'(2000 BAUD) 12° 2400 none o''13°'(3600 BAUD), | 
6039 **14'"(4800 BAUD) ."15'(7200 BAUD) .""16''(9600 BAUD) .°'17""(19.2 KBAUD) 
6040 LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THE 
—8 TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 
6043 IT IS IMPORTANT TO NOTE THAT ALL DZ2V11°S IN THE SYSTEM MUST BE 
6044 CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. ALSO ALL THE EXTRA 
6045 PARAMETERS OTHER THAN CSR AND VECTORS ARE eiven TO THE EXISTING 
al 
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7.2 


PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED IN THIS DIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A_TEST NUMBER AND PC TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND Sw 12=0). IN MOST 
CASES ADDITIONAL INFORMATION WIIL BE SUPPLIED TO THE THE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME REASON THE DZV11 SHOULD “HANG THE BUS’ (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 
HAPPEN, LOOK IN LOCATION ‘STSTNM’ (ADDRESS 1246) FOR THE NUMBER OF THE 
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 
WAY THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZV11 WAS DOING AT THE 
TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

THE STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW THE PROGRAM WAS 


STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH THE 
INFORMATION PRINTED ON THE TTY TO COMPLETELY ISOLATE PROBLEMS. 


OPERATING RESTRICTIONS 
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PARAMETER MUST BE INPUT FROM USER OR APT IF "AUTO SIZING’ IS NOT USED. 


MISCELLANEOUS 
EXECUTION TIME 


ALL tab DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS’ MESSAGE (PROVIDING 
NO ERRORS AND SW12=0) WITHIN 2 MIN. THIS IS ASSUMING SW11=1 (INHIBIT 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. 


PASS COMPLETE 


NOTE: #*EVERY® TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN AS IF 
SW11_ (DELETE ITERATIONS) WAS UP (21). THIS IS TO "VERIFY NO *HARD® 
ERRORS* AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
PROGRAM IS STARTED= WILL BE A ‘QUICK PASS* UNTIL ALL D2Z2V11°S IN SYSTEM 
ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 


END PASS CVDZA=D CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 


KEY LOCATIONS 


SLPADR (1252) CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
bene = COUNT IS REACHED OR IF LOOP ON TEST IS 
NEXT (1362) CONTAINS THE ADDRESS OF wn NEXT TEST TO BE PEFORMED. 
STSTNM (1246) CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED. 
RUN (1412) THE BIT IN ‘RUN® ALWAYS POINTS ONE PAST THE po 
CURRENTLY BEING TESTED. EXAMPLE: 
1412/ ee MEANS THAT DZV11 NO.5 IS THE orvit 
NOW RUNNING 
STATUS MAP 
(1500)=(1740) 
THESE LOCATIONS CONTAIN THE INFORMATION NEEDED To TEST 
UP TO 16 (DECIMAL) DZV11S SEQUENTIALY. THEY CONTAIN 2 
CSR. VECTOR AND STATUS CONCERNING THE CONFIGURATION 
DZVACTV(1406) EACH BIT SET IN THIS LOCATION INDICATES THAT THE 
SSOCIATED D2V11 WILL BE TESTED IN TURN. : 
CORVACTYS 1406/0000000000011111 MEANS THAT DZV11 NO. 
01,02,03,06 WILL BE TESTED. EXAMPLE: (DZVACTV) 
466/6006006000010001 MEANS THAT 6211 NO. 00.04 WILL BE 


TESTED. 
SBASE (1174) CONTAINS THE RECEIVER CSR OF THE CURRENT DZV11 UNDER 


— — — 


SEQ 9 


i 
— — — 
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MORE ON THAT “STATUS TABLE*® (1500-1740) 
"MAP OF DZV11 STATUS’ 
1500 160100 


1502 000300 

1504 000017 

1506 «017470 

1510 000000 
THE ABOVE INFORMATION WILL BE 7 haat FOR EACH OF UP TO 16 DZV11°S IN 
THE SYSTEMC(THESE WILL FOLLOW UNDER ABLE). EXPLANATION: 
1500 160100 —4 ny SYSTEM CONTROL REGISTER FOR THE 1ST DZV11 IN 


1502 000300 THIS IS VECTOR ‘A’ FOR THE FIRST DZV11 IN THE SYSTEM. 
1504 000017 sere eaten BINARY REPRESENTATION OF WHAT LINES ARE TO 


BE TES 

1506 017470 THIS IS THE PARAMETER LOCATION USED IN MOST OF THE 
TESTS. IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 
17 (19.2K BAUD) EIGHT BITS PER CHAR, AND TWO STOP BITS. 
THE USER MAY ALTER THE STOP BITS 8 THE SPEED, BUT THE 
REMAINING PARAMETERS SHOULD BE LEFT ALONE. 
THIS LOCATION IS USED TO LOAD THE D0ZV11 LINE PARAMETER 
ot ey Bk EACH a THE MEANING OF THE BITS SET IN 


RE 
1510 000000 THIS LOCATION WILL CONTAIN EITHER ALL TEROS ot le 
L EC AS MODE OF Ay TION 


THE ABOVE IS REPEATED FOR EACH DZV11 IN 4— SYSTEM. THE TABLE IS 
FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER INPUT PROGRAM 

AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY USER; THE 
LOCATIONS MAY BE ALTERED BY HAND TO SUIT THE SPECIFIC 
CONF IGURATION. 


#e@ METHOD OF AUTO SIZING eee 
FINDING THE CONTROL STATUS REGISTER. 


THE PROGRAM WILL START AT ADDRESS 160000 AND START ‘REFERENCING’ THE 
ADDRESS IN THE POINTER. IF A NON-EX MEMORY TRAP OCCURES, THE POINTER 
(HOLDING 160000) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 
noone ee ay tay IS REACHED. IF A ‘BUS REPLY’ RESPONSE WAS ISSUED BY THE 
DZV11 (OR ANY OTHER pe et (NO NXM TRAP), ‘WASTER SCAN ENABLE S$ 
ATTEMPTED 10 O BE SET THE TCR BITS FOR ALL FOUR LINES ARE SET. ‘‘TRDY' 

IS THEN TESTED TO BE ASET. AND AND “MASTER SCAN ENABLE’ IS TESTED TO BE STILL 


SEQ 10 


om 
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6215 SET. THE atete WILL THEN CHECK THAT AT LEAST ONE TCR BIT * BU 


6216 SET. IF ALL OF THE ABOVE WORKED, THIS DEVICE IS ASSUMED TO BE A D2V1 
6217 IF ANY OF THE ABOVE FAILED, UPDATING OF THE POINTER IS DONE AND 
6218 =o | 'S REPEATED. 

6219 NOTE: IF Te PROGRAM DOES NOT FIND YOUR DZV11, SOMETHING IS WRONG AND 
ose AUTO SIZING SHOULD NOT BE DONE. 

osee 8.5.2 FINDING THE VECTOR 

6224 THE Ss ~— (ADDRESS 300-776) IS ie Ak. THE INSTRUCTION JOT AND 
6225 +2" (NEXT ADDRESS). BIT14 AND BITS (TX INTERUPT ENABLE AND MSTSCAN 
6226 ENABLE) 4 SET INTO THE DIVESR. ALL Ter BITS — Ru A DELAY OCCURS, 
6227 AND IF NO INTERUPT en y (BECAUSE OF A BAD D0ZV11) THE PROGRAM ASSUMES 
6228 VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED. IN THE DIAGNOSTIC. 
6229 ONCE THE PROBLEM St FIXED, THE PROGRAM SHOULD BE SETUP AGAIN TO SET THE 
6230 CORRECT VECTOR. IF AN INTERUPT OCCURRED, THE gy = WHICH THE DZv11 
6231 INTERUPTED TO IS PICKED UP AND REPORTED AS THE VECTOR. NOTE: IF THE 
6232 VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU, THERE IS A PROBLEM AND 
oer AUTO SIZING SHOULD NOT BE DONE. 

—8 8.5.3 PARAMETER ASSUMPTIONS. 

6237 SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 
6238 THE PARAMETERS; THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 
6239 RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND. 
89 —* THIS WAY 95% OF THE PARAMETER SETUP WAS DONE BY THE PROGRAM AND 5% BY 
6242 THEREFORE : 

6243 1) ALL FOUR LINES ARE ASSUMED TO A. TESTED. 

6244 2) DEFAULT BAUD RATE IS SET TO 17 (19. 2 KBAUD). 

ose? 3) MODE OF OPERATION IS "“INTERNAL MODE’. 

8 FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4 FOR GREATER DETAIL. 
6249 

6250 

6251 

—8 9.0 RUNNING THE DZV11 DIAGNOSTIC UNDER APT 

833 9.1.1 THE APT INTERFACE 

6256 THE DZV DIAGNOSTICS WAVE BEEN DESIGNED TO BE COMPATIBLE WITH THE APT 
6257 (AUTOMATED PRODUCT TEST) SYSTEM. THE DZV LOGIC TEST tee ae (CVDZA, 
6258 AND CVDZB) CAN BE RUN AS STANDALONE DIAGNOSTICS OR IN EITHER THE APT 
6259 MODES. CVDZC, HOWEVER IS DESIGNED AS A STANDALONE DIAGNOSTIC. ONLY AND 
6261 REQUIRES DIRECT OPERATOR PARTICIPATION. 

8 9.1.2 SETTING UP THE DIAGNOSTIC USING APT 

6264 THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION SUBTITLED "* APT 
—8* MAILBOX-ETABLE*. THESE VARIABLES ARE: 

6267 SSWREG -(1142) USED AS THE SOFTWARE SWITCH REGISTER WHILE RUNNING 
—8 UNDER APT. 


6270 SVECTI =(1170) USED TO SPECIFY THE FIRST VECTOR ADDRESS 


Q1 
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6271 
6272 SBASE =(1174) USED TO INDICATE BOTTOM ADDRESS OF DZV11 UNDER TEST 
627% SDEVM =(1176) A BIT MAP REPRESENTING WHICH DZV11°S WILL BE TESTED 
6276 $CDW1 (1200) USED TO INDICATE WHICH LINES TO RUN ON ALL D2V11"S 
6278 $cow2 -(1202) USED TO INDICATE THE DEFAULT TEST MODE. SET TO 0 FOR 
6279 INTERNAL TESTING, 200 XTERNAL LOOP BACK (H325 
6280 INSTALLED), OR SET T 100000" FOR STAGGERED LOOP BACK 
6281 TESTING (H329 INSTALLED) 

62 SDDWO =(1204) EACH OF THE S$DDW WORDS DESCRIBES THE PARAMETERS 
6285 (LPR) FOR A PARTICULAR DZV11, GOING UP TO 16 DZv11'S 
6285 9.1.3 RUNNING UNDER APT 

6287 ALL OF THE VARIABLES MENTIONED IN SECTION 9 9: ' «2 SHOULD BE SET 

6288 UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER 

6290 NOTE 

6292 BE SURE SBASE POINTS TO THE FIRST DZV11 BEFORE RUNNING 

6294 

6295 BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP THe STATUS 

6296 TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 

6298 

6299 

6300 

6301 10.0 PROGRAM DESCRIPTION 

6302 

6303 

$308 

6306 THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
6307 PACKAGE (MAINDEC=11-DZQAC-C3). 

$309 

6310 INITIAL ADDRESS OF THE STACK POINTER *e* 1120 eee 

6312 MISCELLANEOUS DEFINITIONS 

6314 GENERAL PURPOSE REGISTER DEFINITIONS 

6316 PRIORITY LEVEL DEFINITIONS 

6318 SWITCH REGISTER’ SWITCH DEFINITIONS 

6320 DATA BIT DEFINITIONS (BITOO TO 61115) 

6322 BASIC CPU" TRAP VECTOR ADDRESSES 

6324 BITS WS=119¢PU Tt 


TYPE 
6325 11/04=01, Was ony £ 13/20=03. 11/40 
6326 11/70=06.PD0=07 ,0=10 


SEQ 13 
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6327 BIT 10=REAL TIME CLOCK 
6328 BIT Q=FLOATING POINT + asses 
8 BIT 8=MEMORY MANAGEMENT 
6331 , MEM.TYPE BYTE <== (HIGH BYTE) 
6332 900 NSEC CORE=001 
6333 300 NSEC BIPOLAR=002 
8 500 NSEC MOS=003 
8 MEM.LAST ADDR.=3 BYTES, THIS WORD AND L 
6338 THIS TABLE CONTAINS —E COMMON STORAGE LOCATIONS 
8 USED IN THE PROGRAM 
6341 THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
6342 THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
6343 LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE came I 
6344 NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC 
—*8 NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS 
6347 EM ssPOINTS TO THE ERROR MESSAGE 
6348 DH 3sPOINTS TO THE DATA HEADER 
6349 dT :sPOINTS TO THE DATA 
6350 OF ssPOINTS TO THE DATA FORMAT 
6351 
6352 
6353 
6354 
6355 INCREMENT THE PASS NUMBER ($PASS) 
6356 IF THERES A MONITOR GO TO IT 
ose? IF THERE ISN*T JUMP TO CYCLE 
6359 THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
6360 AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7 
6361 AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
6362 THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
6365 SW14=1 LOOP ON TEST 
6364 SW11=1 INHIBIT ITERATIONS 
6365 CALL 
3 SCOPE 33SCOPE=10T 
6368 a TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 B 
6369 THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 
6370 NOTE! : SNULL L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CH 
6371 NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
ore NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
6374 CALL: 
6375 1) USING A TRAP INSTRUCTION 
6376 TYPE oMESADR ssMESADR IS FIRST ADDRESS OF AN 
6377 OR 
6378 TYPE 
6379 MESADR 


ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 


— — — — — — — — 
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8 IF BIT? IN THE ENVIRONMENT MODE (SENVM) BYTE IS SET, 


—8 THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 

6386 of USED TO "AUTO SIZE*’ THE D2ZV11 

6387 CSR AND VECTOR. 

6388 NOTES ie CSR MAY BE ANY WHERE IN THE FLOATING 

6389 —_— RANGE (160000:167770) 

6390 AND T HE VECTOR MAY BE ANY WHERE IN THE 

6391 FLOATING VECTOR RANGE (300:770) 

a8 

6394 eeereentereranaanennane TEST ] seenneeeerararecererererereree 
6395 THIS TEST PROVES THE BUS REPLY RESPONSE 

6396 DURING A READ OR WRITE TO THE FOLLOWING ADDRESS: 

8 DZVCSR, DZVRBUF, DZVTCR, DZVMSR 

6399 eteererereneneenananane TEST 2 seeeeeerereeneneeneeneeeererer 
6400 THIS TEST PROVES THAT BIT ‘'DCLR’’ 

6401 CAN BE SET AND THAT IT WILL CLEAR 

6402 BY ITSELF 

6403 

6404 

6405 

6406 

6407 eerererereerenanannaenn TEST 3 seeneeneneeeneeegereneesereret 
6408 TEST TO VERIFY THAT THE R/W BITS OF THE 

6409 DZVCSR REGISTER CAN BE SET. THEN VERIFY THAT 

6410 THESE BITS CAN BE CLEARED. AND FINALLY, VERIFY 

6411 THAT AFTER BEING SET —2*2* THEY CAN BE 

6412 CLEARED BY A ‘DEVICE 

6413 THE BITS TESTED ARE: CUAINT: MSENAB, SILOEN, 

nis RIE, AND TIE. 

6416 eeeeeeereeananananaagane TEST & taeeeenenareareeeaereraenerene 
6417 THIS TESTS THAT ALL OF THE TCR BITS 

6418 CAN BE: SET, CLEARED, AND CLEARED BY A DEVICE CLEAR. 

6419 THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 

44 BE SET, CLEARED, AND CLEARED BY A RESET. 

6422 eeeteeerenaeanennzanenan TEST § seneceneecereeeeeneeeeeserseres 
6423 THIS TEST VERIFIES THAT 

6424 BITS “ROONE , TROY, —33 B1T8, 

6425 AND SILOAL*’ ARE READ ONLY AND THAT TROY IS 

6426 ZERO UNTIL A LINE 18 SELECTED AND TWSERAB IS SET. 

3 

6429 eeterectereagranaananer TEST 6 seeeneenrerenreneeneeneneenees 
6430 THIS TEST VERIFIES THAT: 

6431 TIE SILOEN, Doe ae AND MAINT ARE THE 

6432 ONLY R/W BITS IN THE D2VCSR AND THAT 

—*8 SETTINGDCR IN THE CSR WILL CLEAR THESE BITS. 

6435 eeeteececenennneagecane TEST 7 eeeneceeeeneeceneseneeeeeerere 
6436 THIS TEST PERFORMS RESET TESTING AND 

6437 TESTING OF READ ONLY REGISTER 


d2V VRBUF 
6438 AND TESTING OF WRITE ONLY REGISTER DZVLPR 





— —— 


C 2 
SEQ 15 
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6439 

6440 eeencerrerrarennanenene TEST 10 seeceneecenceneeeecererereeres 

6441 THIS TEST PERFORMS RESET TESTING AND 

6442 TESTING OF READ ONLY REGISTER DZVMSR 

—* AND TESTING OF WRITE ONLY REGISTER DZVTOR 

6445 eeeeerererearanaanazanen TEST 1] weneenenceneeneneeeeerereeerer 

6446 VERIFY THAT SETTING “DTR" FOR A LINE WILL 

6447 BRING UP °'CO’’ AND ‘'RING’' FOR: 

6448 - THE SAME LINE IF IN EXTERNA L MOD E 

6449 THE STAGGERED LINE IF IN STAGGERED MODE. 

6450 LINES ARE STAGGERED AS FOLLOWS: 

6451 LINEO WITH LINE1; LINES WITH LINES. 

6452 THIS TEST IS ONLY RUN IF AN H325,0R H329 

a IS CONNECTED ON THE “0zv UNDER TEST. 

6455 eeeeeerenenzanaaennaane TEST 12 eeneennneeneeeneenaceneeceees 

6456 THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 

6457 IS READY TO BE LOADED, AND THAT THE LINE SPECI- 

6458 FIED IN BITS 8-9 OF DZVCSR CORRESPOND 

6459 TO THE LINE SELECTED IN DZVTCR 

6460 

6461 

6462 

6463 

6464 eeeeeereeneraeenaananzen TEST 13 seneneeneeeceeeneneeeereeentes 

6465 TEST TO TRANSMIT ONE CHAR AND 

6466 ney ONE ag A ONE LINE 

6467 A TIME. THE CHAR IS ‘'252°* AND 

9 ALL SELECTED LINES WILL BE TURNED ON . 

6470 THIS IS THE FIRST TIME ANY 

6471 DATA IS CHECKED IN THE RECEIVER. 

6472 USING SWITCH NINE WITH THIS TEST CREATES A — SCOPE LOOP 

ore WHICH TRANSMITS A STEADY STREAM OF CHARACTERS 

6675 eeteeetenrenaeanagcenaae TEST 14 seeeeenaneeneneereneeeeneneeee 

6476 THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 

6477 98 BY SETTING RCVON (BIT12 IN THES LPR REGISTER) } 

6478 TO ZERO FOR EACH LINE. 

6479 THIS TEST ALSO VERIFIES THAT THE SILO CAN BE 

et EMPTIED BY ISSUING A DEVICE MASTER CLEAR. 

6482 eeeeeecerenaenaneencaen TEST 1§ eeeencennereneeceneceecererece | 

6483 THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS | 

6484 og fe vue MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 

6485 (ONE LINE A TIME BASED UPON VALID LINE | 

—8 THIS is THE Tins TIME THAT ALL DATA is" CHECKED 

6488 Seem Gaewt tare wean on 2 16 eeeenceneeceecenecereneerecere 

6489 THIS TEST WILL PROVE T 

6490 1) THE TRANSRITTER “BREAK BIT" WORKS | 

6491 2) THE RECEIVER CAN FLAG ‘FRAMING ERRORS" 

6492 3) THE RECEIVER CAN FLAG "PARITY ERRORS’ 


* ONLY ONE LINE AT A TIME WILL BE EXERCISED. 
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6495 eeneeecerereeereneerance TEST 17 eeececeeeenecereceeeeeeererere 
6496 THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 

6497 WHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 

6498 BUT WILL INTERRUPT IF THE PROCESSOR STATUS 

8 ALLOWS INTERRUPTS. 


6501 eeeeeeeceneneaneaeanezeans TEST 20 eeeceneeerererereeeeeereeeeere 
6502 THIS TEST VERIFIES THAT THE RECEIVER WILL 

6503 INTERRUPT BEFORE THE TRANSMITTER EVEN 

6504 THOUGH THE TRANSMITTER WAS ENABLED 

6505 FIRST. SET PS TO HIGH (MASK INTERRUPTS); 

6506 GET RDONE AND TRDY TO SET; 

6507 SET TX IE AND RX IE; 

—8 CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 


— — — — — 
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000001 


001120 
104000 


177776 


TITLE 


10 


CVDZA-D 


s*COPYRIGHT (C) 1977,1983 
S*DIGITAL EQUIPMENT CORP. 


; 3 SRATIAR 


D, MASS. 91754 


— — — — 


us PROGRAM WAS ASSEMBLED USING 11900, MAINDEC SYSMAC 


sOPACKAGE (MAINDEC-11-DZQAC-C8), 


étnet 


3 STARTING PROCEDURE 
sLOAD PROGRAM 
3LOAD ADDRESS 000200 


sPRESS START 
sPROGRAM WILL 


ocT 


TYPE 
$"CVDZAD/<200>/FOUR LINE ASYNC MUX TESTS, PART 1 OF 2° 
sPROGRAM WILL TYPE ‘"RUNNING’’ TO INDICATE THAT TESTING HAS STARTED 
3AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
sAND THEN RESUME TESTING 


oREM : 
sSWITCH REGISTER OPTIONS 


$w15=100000 


.SBTTL BASIC DEFINITIONS 
S*INITIAL L ADDRESS OF THE STACK POINTER tee 1120 eee 


3=1,HALT ON ERROR 
3=1,LOOP ON CURREN’ TEST 
31, INHIBIT ERROR TYPEOUT 


3=1, DELETE 


st els wai ON ERROR. 


1, INHIBIT ITERATION 


eESCAPE TO NEXT TEST ON ERROR 


1 5LOOP WITH CURRENT DATA 
ON ERROR 


3=1,LO0P 
3=1, DO “AU 
321, DESELE 


AUTO SIZING’’ ON INITAL START UP. 
CT SPECIFIC DEVIC 


ES 
3NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
ste SELECT 


1, SELECT 


3 LOCK ON TEST 
ESTART PR 


321, SELECT 


DELAY PARAMETER 
wrest tet oe 


OGRAM AT SELECTED TEST 
DEVICE ADDRESS, VECTOR, ETC. 


ssBASIC DEFINITION OF ERROR CALL 
:sBASIC DEFINITION OF SCOPE CALL 


HORIZONTAL TAB 


sCODE FOR LINE FEED 


;; CODE ro CARRIAGE RETURN 


FOR CARRIAGE RETURN-LINE FEED 


STACK= 
ERROR= ent 
SCOPE= JOT 
pent CEL ANEOUS DEFINITIONS 
11 3;CODE FOR 
—* 12 3 
CR= 15 3 
CRLF 200 3; CODE 
PS= 177776 3 PROCESSOR 


STATUS WORD 


SEQ 17 
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VOZAD.P11 

(2) 177776 
(2) 177774 
(2) 177772 
(2) 177570 
(2) 177570 
(2) 

(2) 

(2) 000000 
(2) 000001 
(2) 000002 
(2) 000003 
(2) 000004 
(2) 000005 
(2) 000006 
(2) 000007 
(2) 000006 
(2) 000007 
(2) 

(2) 

(2) 

(2) 00004 

(2) 000100 
(2) 000140 
(2) 000200 
(2) 000240 
(2) 000300 
(2) 000340 
(2) 

(2) 

(2) 100000 
(2) 040000 
(2) 020000 
(2) 010000 
(2) 004000 
(2) 002000 
(2) 001000 
(2) 000400 
(2) 000200 
(2) 000100 
(2) 000040 
(2) 000020 
(2) 000010 
(2) 000004 
(2) 000002 
(2) 000001 
(2) 001000 
(2) 000400 
(2) 000200 
(2) 000100 
(2) 000040 
(2) 000020 
(2) 000010 
(2) 000004 
(2) 000002 
(2) 000001 
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BASIC DEFINITIONS 


PSW= PS 

STKLMT= 177774 sSTACK LIMIT REGISTER 
PIRQ= 177772 : ;PROGRAR INTERRUPT ninety REGISTER 
DSWR= 177570 ssHARDWARE SWITCH REGISTER 
DDISP= 177570 3 :HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 20 33;GENERAL REGISTER 

Ris 11 336kMERA. REGISTER 

R2= %2 33;GENERAL REGISTER 

R3= 13 336kNERAL REGISTER 

R4= 24 3;GENERAL REGISTER 

RS5= 25 33GENERAL REGISTER 

R6= %6 33sGENERAL REGISTER 

R7= 17 ;;GENERAL REGISTER 
SP= %6 s3STACK POINTER 

PC= 17 33PROGRAn COUNTER 
s*PRIORITY LEVEL DEFINITIO'S 

PRO= 0 ssPRIORITY LEVEL 0 

PRi= 40 S:PRIORITY LEVEL 1 

PR2= 1 szPRIORITY LEVEL 2 

PR3= 140 ssPRIORITY LEVEL 3 

PRG&= 200 ssPRIORITY LEVEL 4 

PRS5= 240 ssPRIORITY LEVEL 5 

PR6= 300 ssPRIORITY LEVEL 6 

PR7= 340 ssPRIORITY LEVEL 7 

3*"SWITCH REGISTER’ SWITCH DEFINITIONS 

Sw15= 100000 

SWi4= 4 

$wi3= 20000 

SWwi2= 10000 

SWil= 4 

Swi0= 2000 

$wo9= 1000 

swos= 400 

$w07= 200 

$w06= 100 

swos= 40 

Sw04= 20 

swos= 10 

SWwO2= 4 

Swoi= 2 

swod= 1 

SW9= swo9 

Sw8= $w08 

SW7= $w07 

SwW6= $ 

SwW5= $w0s 

SwW4= $ 

Sw3= $w03 

Suds Sw02 

SWl= sw01 

Sw0= $w00 


SEQ 18 
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CVDZAD.P11 11-MAR-83 1 BASIC DEFINITIONS 
(2) s*DATA BIT DEFINITIONS (BI1T00 TO B1T15) 
(2) 100000 B1T15= 100000 
(2) 040000 BIT14= 40000 
(2) 020000 B1T13= 20000 
(2) 010000 BITi2= 10000 
(2) 004000 BITI1= 4000 
(2) 002000 B1T10= 2000 
(2) 001000 B1T09= 1000 
(2) 0004 B1T08= 400 
(2) 000200 BITO7= 200 
(2) 000100 BIT06= 100 
(2) 00004 B1T05= 
(2) 000020 BIT04= 20 
(2) 000010 BITO3= 10 
(2) 000004 B1T02= 
(2) 000002 BITO1= 2 
(2) 000001 B1T00= 
(2) 001000 BIT9= BITO9 
(2) 000400 BIT8= BIT08 
(2) 000200 B1T7= 61107 
(2) 000100 BIT6= B1T06 
(2) 000040 BITS= B1T0S 
(2) 000020 BIT4= BIT04 
(2) 000010 BIT3= BITO3 
(2) 000004 BIT2= B1T02 
(2) 000002 BIT1= B1T01 
ss 000001 BIT0= B1T00 
(2) 3*BASIC **CPU'’ TRAP VECTOR by 
(2) ERRVEC= 4 TIME OUT AND OTHER ERRORS 
(2) 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 :"T" BIT 
(2) 000014 TRIVEC= 14 33 TRACE TRAP 
(2) 000014 BPTVEC= 14 3sBREAKPOINT TRAP (BPT) 
(2) 000020 IOTVEC= 20 ss INPUT/OUTPUT TRAP (IOT) **SCOPE*s 
(2) 000024 PWRVEC= 24 33POWER FAIL 
(2) 000030 EMTVEC= 30 ssEMULATOR TRAP (EMT) **ERRORe® 
(2) 000034 TRAPVEC= 33""TRAP’’ TRAP 
(2) TKVEC= 60 s3TTY KEYBOARD VECTOR 
(2) TPVEC= 64 s3TTY PRINTER VECTOR 
7 000240 PIRQVEC=240 33PROGRAM INTERRUPT REQUEST VECTOR 
(1) 
s INSTRUCTION DEFINITIONS 
(1) 
(1) 005746 PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
(1) 005726 POP1SP=5726 z INCREMENT verecoee STACK 1 WORD 
(1) 10046 PUSHRO=10046 sSAVE RO ON 
(1) 2600 POPRO=12600 sRESTORE RO PROR STACK 
(1) 024646 PUSH2SP=24646 ;DECREMENT STACK TWICE 
(1) 022626 ponestuecec® s INCREMENT STACK TWICE 
(1) 200 MASK=B1T7 sSET INTERRUPT MASK (INHIBIT FURTHER INTERRUPTS) 
He CLEAR=0 sALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 
(1) 


SEQ 19 
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(1) 

(1) 

(1) 

(1) 

(1) 000010 
(1) 000020 
(1) 00004 
(1) 000100 
(1) 000200 
(1) 010000 
(1) 020000 
(1) 040000 
(1) 100000 
(1) 

(1) 

(1) 

(1) 

(1) 00 
(1) 001000 
(1) 001400 
(1) 

(1) 

(1) 

(1) 

(1) 

(1) 010000 
(1) 020000 
(1) 040000 
(1) 100000 
(1) 

(1) 

(1) 

(1) 

(1) 000000 
(1) 000400 
(1) 001000 
(1) 001400 
(1) 

(1) 

(1) 

(1) 

(1) 000000 
(1) 000001 
(1) 000002 
a sre: 
(1) 000000 
(1) 000010 
(1) 000020 
(1) 000030 
(1) 00004 
HH 000050 
(1) 000070 
(1) 

(1) 000100 
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GENERAL 


H 2 


10-3 
DEFINITIONS AND EQUIVALENCES 
13: CONTROL AND STATUS REGISTER DEFINITIONS 


(DZVCSR) BIT DEFINITIONS 
MAINT = BIT3 «| MALNTENANCE , nove ENABLE 
DCLR=BIT4 SDEVICE CLEAR 
MSENAB=BITS SMASTER SCAN ENABLE 
RIE=BIT6 RECEIVER INTERRUPT ENABLE 
DONE=B117 SRECEIVER DONE 

SILOEN= BIT12  ;SILO ALARM ENABLE 
SILOAL = BIT13 ;SILO ALARM 
TIESBIT16 S TRANSMITTER INTERRUPT ENABLE 
TROY=BIT15 S TRANSMITTER READY 

:DZVCSR WORD DEFINITIONS 
TL0=0 * ; TRANSMIT LINE 0 
TL1=B1T8 STRANSMIT LINE 1 


TL2=B1T9 
TL3=B1T9!B1T8 


PARER=B] 
FRMERR=B 
OVRRUN=B 
DVAL1ID=8 


RLO=0 
RL1=B1T8 


RL2=B1T9 
RL3=B1T9 


LPO0=0 
LP1=81T0 
LP2=81T1 
LP3=B1T1 
FIVE=0 
$1X=B1T3 


SEVEN=81 
EIGHT=8] 
FIVES=81 


S1XS=B115!B BIT 3 
SEVENS=B1T 


EIGHTS=B 
PARITY=B 


s TRANSMIT LINE 2 
s TRANSMIT LINE 3 


sDZVRBUF BIT DEFINITIONS 


T12 sPARITY ERROR 
1T13 sFRAME ERROR 
1114 sOVERRUN ERROR 
1715 sDATA VALID 


sDZVRBUF WORD DEFINITIONS 


sRECEIVER LINE 0 
sRECEIVER LINE 1 
sRECEIVER LINE 2 
‘BITS §=;RECEIVER LINE 3 


sDZVLPR WORD DEFINITIONS 


sLINE PARAMETER 0 


'B1TO LINE PARAMETER 3 


sFIVE BITS/CHAR.1 STOP BI BIT 
1% SEVEN BITS/CHAR, 1 STOP. BIT 
T4!B1T3 sEIGHT BITS/CHAR.1 STOP BIT 
15 FIVE BITS/CHAR,2 stop spits 
SIX BITS/CHAR, é st 

T5'BiT 3 SEVE tisvchan® 
1TS5!B1T4!81T3 sPicht BITS /CHAR’ 


116 sPARITY ENABLED 


STOP BITS 
STOP BITS 


SEQ 20 


eee 
— — — — — 
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CVDZAD.P11- 17-MAR=83 10:06 GENERAL DEFINITIONS AND EQUIVALENCES 
a) 000200 ODDPAR=8117 30DD PARITY ENABLED 
a) 000000 ONESTOP=0 ONE STOP BIT ENABLED 
(1) 000040 TwosToPs8115 :TWO STOP BITS ENABLED 
(1) 000000 EVEPAR=0 SEVEN PARITY ENABLED 
a) 010000 RCVON=BIT12 SENABLE RECEIVER (RECEIVER ON) 
(1) $5020 :SPEED 50 BAUD 
(1) 00 $75=B1T8 sSPEED 75 BAUD 
a) 001000 179 3SPEED 110 BAUD 
(1) 001400 $134=B1T9!B1T8 SSPEED 134.5 BAUD 
(1) 2000 $150=B1T1 :SPEED 150 BAUD 
(1) 002400 $300=B1T10!81T8 ;SPEED 300 BAUD 
(1) 3000 119 PEED 600 BAUD 
(1) 003400 $1200=B1T10!BIT9!BITS ;SPEED 1200 BAUD 
(1) 000 5 T11 :SPEED 1800 BAUD 
(1) 004400 $2000=B1T11!B1T8 sSPEED 2000 BAUD 
a) 005000 $2400=B81711 BIT SPEED 2400 BAUD 
(1) 005400 $3600=B1T11'BIT9!BITS ;SPEED 3600 
(1) $4800=81T11'8 3SPEED 4800 BAUD 
a) 006400 $7200=B1T11!B1T10'B1T8 SPEED 7200 BAUD 
(1) 007000 $9600=B1T11'BITIO'BIT9 :SPEED 9600 BAUD 
a) 007400 $19200=B1111 1BITIOBITO!BITS” 3SPEED 19200 BAUD 
9 :dxvrca BIT DEFINITIONS 
(1) 000001 TCRO=B1T0 sENABLE TRANSMISSION ON LINE 0 
(1) 000002 TCR1=B1T1 ZENABLE TRANSMISSIUN ON LINE 1 
(1) 000004 TCR2=81T2 SENABLE TRANSMISSION ON LINE 2 
(1) 000010 TCR3=B1T3 SENABLE TRANSMISSION ON LINE 3 
a) 000400 DTRO=BITB [DATA TERMINAL READY FOR LINE 0 
(1) 001000 DTR1=B1T9 DATA TERMINAL READY FOR LINE 1 
(1) 002000 DTR2=B1T10 SDATA TERMINAL READY FOR LINE 2 
9 004000 DTR3=B1T11 SDATA TERMINAL READY FOR LINE 3 
9 sDZVMSR BIT DEFINITIONS 
(1) 000001 RINGO=B170 ;RING INDICATED ON LINE 0 
(1) 000002 RING1=B1T1 SRING INDICATED ON LINE 1 
(1) 000004 RING2=B1T2 SRING INDICATED ON LINE 2 
(1) 000010 RING3=B1T3 SRING INDICATED ON LINE 3 
(1) 000400 00=81T8 SCARRIER PRESENT ON LINE 0 
(1) 001000 €01=B1T9 SCARRIER PRESENT ON LINE 1 
(1) 002000 C02=B1T10 SCARRIER PRESENT ON LINE g 
004000 C03=B81T11 SCARRIER PRESENT ON LINE 
9 sDZVTOR BIT DEFINITIONS 
(1) 
(1) 000400 BRKO=B1T8 SBREAK FOR LINE 0 
(1) 001000 BRK1=B1T9 SBREAK FOR LINE 1 
(1) 002000 BRK2=B1T10 SBREAK FOR LINE : 
(1) 004000 BRK3=B1T11 SBREAK FOR LINE 


42 


SEQ 22 
he ny MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-5 

VOZAD.P11 11-MAR=-83 10:06 GENERAL DEFINITIONS AND EQUIVALENCES 

(1) 

‘33 sTABLE OF LOOP AROUND FUNCTIONS (H325) 

qd ) 3 

(1) : I = 

(1) ; ¢ ” 

(1) ; REC TRANS 

(1) 3 DATA DATA 

(1) ; 

qd ) ° See Deen eerre2acosen 

(1) 3 I . 

(1) 3 Vv . 

(1) 3 co RTS 

(1) 3 

q1 ) 3 Seeememaneowsanse 

(1) 3 I - 

(1) 3 Vv « 

(1) 3 RING DTR 











SEQ 23 
CVDZA=D MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-6 
CVDZAD.P11 —- 11-MAR=83 10:06 TRAPCATCHER FOR UNEXPECTED INTERRUPTS 
(1) si teeeeneeererereeeeeeeeerercerereenarerereeneegeereeeeegereneeererere 
(1) sTRAPCATCHER FOR ILLEGAL INTERRUPTS 
(1) 3THE STANDARD "TRAP CATCHER’ IS PLACED 
(1) sBETWEEN ADURESS 0 TO ADD DRESS 776. 
(1) 317 LOOKS LIKE “PC+2 KAL 
(1) Fi keeeeenaararercerererererereeeeeeeneengeneeeeereneeeerereneeeereneere 
a) 
a) 000000 .20 
(1) i ; yFD DON'T SETUP EMT AS TRAP CATCHER SINCE IT IS USED FOR LINKAGE BETWEEN UFD MONITOR 
0000 = 
95 ZSTANDARD INTERRUPT VECTORS 
a) : 
a) 000020 220 
(1) 000020 004462 . SCOPE 3SCOPE LOOP HANDLER 
(1) 000022 000200 MASK SHANDLE AT PRIORITY 7 
(1) 000024 007564 SPWRDN SPOWER FAIL HANDLER 
(1) 000026 000340 340 SSERVICE AT PRIORITY LEVEL 7 
a) 000034 234 
(1) 000034 006402 . TRPSRV 3GENERAL HANDLER DISPATCH SERVICE 
(1) 000036 000340 340 SSERVICE AT PRIORITY LEVEL 7 
8 Seariti ACT11 HOOKS 
(3) 3 —VVVVETäOQRIIXVDVVVVD 
(2) SHOOKS REQUIRED BY ACT11 
(2) 000040 $SVPC=. TSAVE PC 
(2) 000046 246 
(2) 000046 004416 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(2) 000052 252 
(2) 000052 000000 “WORD 0 722)SET LOC.S2 TO ZERO 
(2) 000040 =$SVPC 3: RESTORE PC 
a) 000174 217% 
(1) 000174 000000 DISPREG:0 SSOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
9 000176 900000 SWUREG: 0 TSOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 
| 
Cy 000200 000137 002116 JMP START 360 TO START OF PROGRAM 
(2) 
(2) 


001000 -=1000 
(2) 001000 005200 053103 055104 MTITLE: .ASCIZ <200><12>/CVDZAD/<200>/FOUR LINE ASYNC MUX TESTS, PART 1 OF 2/<200> 


L 2 
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CVDZAD.P11 11-MAR-83 10:06 PARAMETERS, VARIABLES, AND TRAP CALLS. 
(3) 001120 21120 
(4) PETTITT ITI ITI rrr iii iii iiiiiiiiiiiiritiititiiity 
re -SBTTL APT MAILBOX-ETABLE 
(5S) 08 catedeneges 2. eee nies anaes 
(4) 
(4) 001120 SMAIL: 33APT MAILBOX 
(4) 001120 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE —* —“ 
(4) 001122 000000 SFATAL: . AFATAL ;;FATAL ERR 
(4) 001124 000000 STESTN: .WORD ATESTN ;;TEST on 
(4) 001126 000000 SPASS: . APASS ;;PASS COUNT 
(4) 001130 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
(4) 001132 000000 Iv: . AUNIT 5331/0 UNIT NUMBER 
(4) 001134 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
(4) 001136 000000 SMSGLG: . AMSGLG ;;MESSAGE LENGTH 
(4) 001140 SETABLE: 33APT ENVIRONMENT TABL 
(4) 0011 000 ’ -BYTE AENV ssENVIRONMENT BYTE 
(4) 001141 000 NVA: .BYTE AE ssENVIRONMENT MODE BITS 
(4) 001142 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(4) 001144 000000 : .WORD AUSWR ;;USER SWITCHES 
(4) 0011 000000 SCPUOP: . ACPUOP ;;CPU Na Fs aay ae 
(4) ;@ BITS 15-11=CPU 
(4) 3* 11/04201, 11705202, 11/20203,11/40=04,11/45=05 
(4) 3* 1/ 70206.PD0=07,0 
(4) Ge BIT 10=REAL TIME CLOCK 
(4) 3* BIT Y9=FLOATING POINT PROCESSOR 
(4) z* BIT S=MEMORY 
(4) 001150 000 SMAMS1: -BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
(4) 001151 000 SMTYP1: .BYTE AMTYP1 ;;:MEM. TYPE.BLK41 
(4) 3* MEM.TYPE BYTE — (HIGH BYTE) 
(4) 3* 900 NSEC CORE=001 
(4) 3* 300 NSEC BIPOLAR=002 
(4) se NSEC _— 
(4) 001152 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS BLKA 
(4) ;@ MER.LAST ADDR. =3 Bytes. THIS WORD AND LOW OF ‘’TYPE’’ ABOVE 
(4) 0011 000 2: .BYTE S2 ;;HIGH ADDRESS,.M.S. BYTE 
(4) 001155 000 SMTYP2: .BYTE AMTYP2 ;:MEM.TYPE,BL 
(4) 0011 000000 a eWORD AMADR2 ;;MEM.LAST "ADDRESS ,BLK#2 
(4) 001160 000 : .BYTE AMAMSS ;;HIGH ADDRESS.M.S.BYTE 
(4) 001161 000 SMTYP3: .BYT AMTYPS ;;MEM. TYPE BLK&3 
(4) 0011 000000 3: .WORD AMADRS ;;MEM.LAST “ADDRESS BLK#3 
(4) 0011 009 eBYTE AMAMS4 ;;HIGH ADDRESS.M.S.BYTE 
(4) 001165 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TY 
(4) 0011 000000 43. AMADR4 ;;RER.LAST “ADDRESS BL Kas 
(4) 001170 000300 SVECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1 BUS Anne bbe g 
(4) 001172 000000 SVECT2: .WORD AVECT2 3; INTERRUPT VECTOR#S2BUS PRIORITY#2 
(4) 001174 160010 SBASE: .WORD ABASE foo ADDRESS OF EQUIPMENT UNDER TEST 
(4) 001176 000001 SDEVA: .WORD ADE 33 RAP 
(4) 001 000017 SCOW1: .WORD ACDW! a OONTROLLER DESCRIPTION WORD#1 
(4) 001202 000000 $cOw2: . ACOW2 ;;CONTROLLER DESCRIPTION WORD#S2 
(4) 001204 017470 pwo: . OWO ;;DEVICE DESCRIPTOR 
(4) 001206 017470 SDDWi: . ADDW1 ; DEVICE DESCRIPTOR WORD#1 
(4) 001210 017470 $d0W2: . ADDW. ssDEVICE DESCRIPTOR WORDS 
(4) 001212 017470 Sows: . ADOW 3 DEVICE RIPTOR WORDS 
(4) 001214 017470 Soow4: . ADDWS ;;DEVICE DESCRIPTOR WORDS4 
(4) 001216 017470 Sodus: . ADOWS ;;DEVICE DESCRIPTOR WORDSS 


SEQ 25 

CVDZA-D MACY11 30(1046) 11-MAR-83 stay rma 10-8 

CVDZAD.P11 T1-MAR=83 10:06 MAILBOX-E TABLE 
(4) g 017470 SDDW6: .WORD ADDW6  ;;DEVICE DESCRIPTOR WOR 
(4) 001222 017470 SDDW7: .WORD ADDW? ;;DEVICE DESCRIPTOR WORDS 
(4) 001224 017470 SDDW8: .WORD ADDWB ;;DEVICE DESCRIPTOR WORDSS 
(4) 001226 017470 $OdW9: . ADOWD = DEVICE DESCRIPTOR ag 
(4) 001230 017470 SDDWI0: .WORD ADDWIO ;;DEVICE DESCRIPTOR WORD#10 
(4) 001232 017470 SDDWI1: . ADDWI1 ;;DEVICE DESCRIPTOR WORDS 
(4) 001234 470 SODWI2: . ADDWI2 ;;DEVICE DESCRIPTOR WORDA1 
(4) 001236 017470 SDDW15: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#1 
(4) 240 017470 SODW14: .WORD ADDWI4 ;;DEVICE DESCRIPTOR WORDA14 
—9 001242 017470 SPDW15: .WORD AD ssDEVICE DESCRIPTOR WORD#15 
(4) 
(4) 001244 SETEND: 


CVDZA=D MACY11 30(1046) T1-MAR-83 10:13 os * 
CVDZAD.P11 11-MAR-83 10:06 COMMON T 


8 eSBTTL COMMON TAGS 

(4) PP 
(3) 3*THIS TABLE g lt Bases COMMON STORAGE LOCATIONS 

8 S*USED IN THE PROGRAA 

(3) 001244 SCMTAG: 33START OF COMMON TAGS 

(3) 001244 000000 -WORD 0 

(3) 001246 000 STSTNM: .BYTE 0 3; CONTAINS a TEST NUMBER 

(3) 0012467 000 SERFLG: .BYTE 0 3 CONTAINS F 

(3) 001250 000000 SICNT: .WORD 0 33 CONTAINS SUBTEST aid sy COUNT 
(3) 001252 000000 SLPADR: . 0 ssCONTAINS SCOPE L 

(3) 001254 000000 SLPERR: . 0 ssCONTAINS SCOPE RETURN. FOR ERRORS 
(3) 001256 000000 SERTTL: .WORD 0 ssCONTAINS TOTAL ERRORS DETECTED 
(3) 001260 000 SITEMB: .BYTE 0 33 CONTAINS — CONTROL BYTE 

(3) 001261 001 SERMAX: .BY 1 3sCONTAINS MAX. ERRORS PER TEST 
(3) 001262 000000 SERRPC: . 0 :CONTAINS PC OF LAST ERROR a 
(3) 001264 000000 SGDADR: . 0 s3CONTAINS ADDRESS OF ‘GOOD’ 

(3) 001266 000000 SBDADR: .WORD 0 ssCONTAINS ADDRESS —* *BAD' DATA. 
(3) 001270 000000 SGDDAT: .WORD 0 ssCONTAINS °GOOD’ DAT 

(3) 001272 000000 SBDDAT: .WORD 0 ssCONTAINS °BAD® DATA 

(3) 001274 000000 WORD 0 33RESERVED--NOT TO BE USED 

(3) 001276 000000 eWORD 0 

(3) 001 000 SAUTOB: .BYTE 0 3 sAUTOMATIC MODE INDICATOR 

(3) 001301 000 SINTAG: .BYTE 0 ss INTERRUPT MODE INDICATOR 

(3) 001302 000000 WORD 0 

(3) 001304 177570 SWR: eWORD ODSUR 3 sADDRESS UF SWITCH REGISTER 

(3) 001306 177570 DISPLAY: .WORD DDISP 33ADDRESS OF DISPLAY REGISTER 

(3) 001310 177560 $TKS: 177560 33TTY KBD Abad 

(3) 001312 1775 $TKB: 177562 ssTTy 

(3) 001314 177564 STPS: 177564 33 TTY PRINTER STATUS REG. ADDRESS 
(3) 0013516 177566 $TPB: 177566 ss TTY PRINTER BUFFER REG. ADDRESS 
(3) 001 000 L: .BYTE 0 3sCONTAINS NULL CHARACTER FO FILLS 
(3) 001321 002 SFILLS: .BYTE 2 33 CONTAINS # OF FILLER CHARACTERS REQUIRED 
(3) 001322 012 SFILLC: .BYTE 12 ssINSERT FILL CHARS. AFTER A "LINE FEED 
(3) 001323 000 STPFLG: .BYTE 0 33°TERMINAL AVAILABLE’ FLAG (B11<07>=0=VES) 
(3) 001324 000000 EGAD: . 0 33 CONTAINS THE ADDRESS FROM 

(3) ssWHICH (S$REGO) WAS OBTAINED 

(5) 001 000000 SREGO: .WORD 0 ssCONTAINS ((SREGAD) +0 

(5) 001330 000000 SREG1: .WORD 0 ssCONTAINS ((SREGAD) +2) 

(5) 001332 000000 SREG2: .WORD 0 ssCONTAINS ((SREGAD) +4) 

(5) 001334 000000 SREGS: .WORD 0 33 CON AINS ((SREGAD) +6) 

(5) 001336 000000 SREG4: .WORD 0 ssCONTAINS ((SREGAD) +10) 

(5) 001340 000000 SREGS: .WORD 0 33CONTAINS ((SREGAD) +12) 

(5) 001342 000000 STMPO: .WORD 0 33 DEFINED 

(5) 001 000000 STMP1: .WORD 0 33USER DEFINED 

(5) 001 000000 STMP2: .WORD 0 33USER DEFINED 

(5) 001350 000000 STMPS: . 0 33USER DEFINED 

(5) 001352 000000 TMP4: . 0 ssUSER DEFINED 

(3) 001354 000000 STIMES: 33MAX. NUMBER OF ITERATIONS 

(3) 001356 077 S$: .ASCII /2/ Perri tte MARK 

(3) 001357 015 SCRLF: .ASCII <15> 33 —— RETURN 

(3) 001 000012 F: eASCIZ <12> ssLINE FEED 


SEQ 27 

CVDZA=D MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-10 
CVDZAD.P11 - 17=MAR-B3 10:06 ERROR POINTER TABLE 

(3) eSBTTL ERROR POINTER TABLE 

(3) s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

(3) Z®THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

(3) S*LOCATION SITEMB. IHS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

(3) S*NOTET: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

(3) *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

(3) 38 EM ssPOINTS TO THE ERROR MESSAGE 

(3) 38 DH S:POINTS TO THE DATA HEADER 

(3) 78 oT S:POINTS TO THE DATA 

(3) 38 OF 33POINTS TO THE DATA FORMAT 

(3) 

(3) 001362 SERRTB: 

2) sPROGRAM CONTROL PARAMETERS 

(2) 3 

(2) 001362 000000 NEXT: 0 SADDRESS OF NEXT TEST TO BE EXECUTED 

3 001364 000000 LOCK: 0 sADDRESS FOR LOCK ON CURRENT TEST, TIGHT LOOP 

8 zPROGRAM VARIABLES 

(2) : 

(2) 001366 000017 LINE: 17 sDEFAULT ALL FOUR LINES RUNNING 

(2) 001370 017470 PAR 17470 SPARAMETERS: 8 BITS/ CHAR. 2 STOP BITS,19200 BAUD.NO PARIT 

(2) 001372 000000 MODE: 0 SDEFAULT MAINTENANCE MO 

(2) 001374 000000 SAVLIN: 0 SLINE NUMBER 

(2) 001376 000000 XMTLIN: 0 3 TRANSMISSION LINE NUMBER 

(2) 000000 XMTCNT: 0 SCOUNT OF WORDS IN A TRANSMISSION PATTERN 

(2) 001402 000000 REGIST: 0 sDEVICE ADDRESS STORAGE LOCATION 

(2) 001404 000000 SAVPC: 0 PROGRAM COUNTER STORAGE 

(2) 001406 000001 DZ2VACTV:.BLKw 1 —8B SELECTED ACTIVE. 

(2) 001410 000001 SAVACTV:.BLKW 1 A BIT MAP OF 02V11°S IN THE SYSTEM 

(2) 001412 000001 RUN: 1 : SPOINTER ONE PAST RUNNING DEVICE. 

(2) 001414 000001 DZVNUM: .BLKB 1 s*OCTAL NUMBER OF DZV11'S IN THE SYSTEM 

(2) 001415 001 SAVNUM: .BYTE 1 S*WORKABLE NUMBER. 

(2) 001416 000001 SAVNO: .BLKB 1 S*OCTAL NO. OF DZV11°S BEING TESTED 


-EVEN 
(2) 001420 001500 ACTIVE: DZV.MAP : TABLE POINTER. 





CVDZA-D MACY11 30(1046) 
CVDZAD.P11 
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11-MAR-83 10: v PAGE 10-11 
ERROR POINTER TABLE 


sPROGRAM CONTROL FLAGS 


INIFLG: .BYTE 0 sPROGRAM INITIALIZATION FLAG 
HORFLG: .BYTE 0 PROGRAM — FLAG FOR HEADER MAP 
MNTFLG: .BYTE 0 MAINTENANCE BIT SET FLAG 
— BYTE 0 3; TRANSMISSION COMPLETION FLAG 
sDATA VARIABLES 

100: eWORD 0 

101: eWORD 0 

TD2: -WORD 0 

TD3: -WORD 0 

TRO: eWORD 0 

TRI: eWORD 0 

TR2: eWORD O 

TR3: eWORD 0 

STOP: 


-SBTTL APT PARAMETER BLOCK 


33 SRRAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAARAHAAAAARAAAAAKRAAAAEE 
$SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FAMAAAAAAAAAAAAAAAA AAR EAAAHAAAAAAAAAAAAAAAAAAHAAAAAAARAAAAAAAEe 
»$X=, 5: SAVE CURRENT LOCATION 
-224  3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 = :: FOR APT START UP 
.244  ;;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR :;:POINT TO APT HEADER BLOCK 
.2.$X  33RESET LOCATION COUNTER 
eeeenceeeerereceecerceceeeeereecenrenneeeeeererenteceereeeeeree 
SSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 
SHIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

: WORD SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTM: .WORD 80. :;RUN TIM OF LONGEST TEST 
SPASTM: .WORD 20. s;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITA: — 0. ssADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

SETEND~SAAIL 2 33LENGTH MAILBOX~E TABLE (WORDS) 
pavit STATUS TABLE AND ADDRESS ASSIGNMENTS 

-=1500 
DZV.MAP: 
DZcRO: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 0 
Dz7vcO: .BLKW 1 SRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 0 
LINEO: .BLKW 1 SALL LINES SELECTED 
PARO: -BLKY 1 sPARAMETERS 
MANTO: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
DZ7CR1: .BLKW 1 sCONTROL STATUS REGISTER FOR D2V11 NUMBER 1 
OZvC1: .BLKW 1 SRECELV VER AND BASE VECTOR FOR DZ2V11 NUMBER 1 
LINE]: .BLKW 1 SALL LINES SELECTED 


CVDZA=D MACY11 30(1046) 11-MAR-83 10: , *Ö 10-12 


CVDZAD.P11 T1-MAR-83 10:06 PARAMETER BLOCK 
(3) 001520 000001 PARi: .BLKW 1 ; PARAMETERS 
8 001522 000001 MANT1: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001524 000001 DZCR2: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 2 
(3) 001526 000001 DZvC2: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 2 
(3) 001530 000001 LINE2: .BLKW 1 sALL LINES SELECTED 
(3) 001532 000001 PAR2: .BLKW 1 3 PARAMETERS 
8 000001 MANT2: .BLKW 1 3MAINTENANCE MODE FOR THIS DEVICE 
(3) 001536 000001 DZCR3: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 3 
(3) 000001 DZvC3: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 3 
(3) 001542 000001 LINES: .BLKW 1 ZALL LINES SELECTED 
(3) 001544 000001 PARS -BLKW 1 3 PARAMETERS 
8 001546 000001 MANTS: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001550 000001 DZCR4: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 4 
(3) 001552 000001 DZvC4: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 4 
(3) 000001 LINES: .BLKW 1 ZALL LINES ane 
(3) 001556 000001 PAR4: .BLKW 1 3 PARAMETERS 
8 001560 000001 MANT4: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001562 000001 OZCRS: .BLKW 1 : CONTROL STATUS REGISTER FOR DZV11 NUMBER 5 
(3) 001564 000001 DZvCS: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 5 
(3) 001566 000001 LINE -BLKY 1 3ALL 4 SELECTED 
(3) 001570 000001 PARS -BLKW 1 3 PARAMETERS 
8 001572 000001 MANTS: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001574 000001 DZCR6: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 6 
(3) 001576 900001 DZvC6: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 6 
(3) 000001 LINE6: .BLKW 1 3ALL LINES SELECTED 
(3) 001602 000001 PAR6 -BLKY 1 ; PARAMETERS 
8 001604 000001 MANT6: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 000001 DZCR7: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 7 
(3) 001610 000001 DZvC7: .BLKW 1 3RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 7 
(3) 001612 000001 LINE7?: .BLKW 1 ZALL LINES SELECTED 
(3) 001614 000001 PAR7?: .BLKW 1 ; PARAMETERS 
8 001616 000001 MANT7: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001620 000001 DZCR10: .BLKW 1 sCONTROL STATUS 4 FOR DZV11 NUMBER 10 
(3) 001622 000001 DZVC10: .BLKW 1 3RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 10 
(3) 001624 000001 LINE10: .BLKY 1 sor LINES SELECTED 
(3) 001626 000001 PARIO: .BLKW 1 3 PARAMETERS 
8 001630 000001 MANTIO: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
(3) 001632 000001 DZCR11: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 11 
(3) 001634 000001 OZVC11: .6LKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 11 
(3) 001636 000001 LINE11: .BLKW 1 sALL LINES SELECTED 
(3) 001640 000001 PARI1: .6LKW 1 3 PARAMETERS 
8 001642 000001 MANTI1: .BLKY 1 3MAINTENANCE MODE FOR THIS DEVICE 
(3) 001644 000001 DZCRI2: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 12 
(3) 001646 000001 DZvCi2: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 12 
(3) 000001 LINE12: .BLKW 1 *8 LINES SELECTED 
(3) 001652 000001 PARI2: .BLKW 1 3 PARAMETERS 
(3) 001654 000001 MANTI2: .BLKY 1 sMAINTENANCE MODE FOR THIS DEVICE 
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DZCRI6: 
DZVC16: 
LINE16: 
PAR16: 

MANT16: 


DZCRI7: 
DZVC17: 
LINE17: 
PAR17: 

MANT17: 


D2V.END: 
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177777 


sCONTROL STATUS REGISTER FOR DZV11 NUMBER 13 
sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 13 
3ALL LINES SELECTED 

3 PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


sCONTROL STATUS REGISTER FOR DZV11 NUMBER 1 
sRECEIVER AND BASE VECTOR FOR DZv11 NUMGER 14 
sALL LINES SELECTED 

3 PARAMETERS 


3MAINTENANCE MODE FOR THIS DEVICE 


sCONTROL STATUS REGISTER FOR DZV11 NUMBER 15 
sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 15 
sALL LINES SELECTED 

; PARAME TERS 

sMAINTENANCE MODE FOR THIS DEVICE 


sCONTROL STATUS REGISTER FOR DZV11 NUMBER 16 
sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 16 
ZALL mee SELECTED 

3 PARAMETER 

3MAINTENANCE MODE FOR THIS DEVICE 


sCONTROL STATUS REGISTER FOR DZV11 NUMBER 17 
sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 17 
sALL —“*9 SELECTED 

; PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


SEO 30 | 


— — — — — —— — — — — — NE 
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001742 
001742 
001744 
001746 
001750 
001752 
001754 
001756 
001760 
001762 
001764 
001766 
001770 
001772 
001774 
001776 
002000 
002002 
002004 
002006 
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0:06 APT PARAMETER BLOCK 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND 
sIN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 


—EXXXVEVXVVXVVDOCCEEEEEEOOS 


—XX 
ADVANCE=TRAP+0 
ADVANCE 
SCOP1=TRAP+1 
~SCOP1 
TYPE=TRAP+2 
«TYPE 
INSTR=TRAP+3 
INSTR 
INSTER=TRAP+4 
e INSTE 
PARAM=TRAP+5 
-PARAM 
SETFLG=TRAP+6 
eSETFL 
SAVO5=TRAP+7 
SAV 
RESOS=TRAP+10 
eRESOS 
CONVRT=TRAP+11 
-CONVRT 
CNVRT=TRAP+12 
oe CNVRT 
DEVICE. aoe 
VICE.CLR 
DELAY=TRAPS14 
PARMD=TRAP+15 
-PARMD 
PAWCH=TRAP+16 
-PAWCH 
DCLASM=TRAP+17 
-DCLASM 
SHIF T=TRAP+20 
SHIFT 
LPRSET=TRAP+21 
eLPRSET 
BUF SET=TRAP+22 
eBUF SET 


3CALL 
3 CALL 
3CALL 
3 CALL 
3 CALL 
3 CALL 
3CALL 
sCALL 
3 CALL 
3CALL 
3 CALL 


: CALL 


TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE) 

TO LOOP ON CURRENT DATA HANDLER 

TO TELETYPE OUTPUT ROUTINE 

TO ASCII STRING INPUT ROUTINE 

TO INPUT ERROR HANDLER 

TO NUMERICAL DATA INPUT ROUTINE 

TO SET FLAG ROUTINE 

TO REGISTER SAVE ROUTINE 

TO REGISTER RESTORE ROUTINE 

TO DATA OUTPUT ROUTINE 

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
sCALL TO ISSUE A DEVICE CLEAR 

TO DELAY FOR FAST CPU'S 


sCONVERT DECIMAL STRING TO OCTAL 


3SET FLAG 


ECHO OR CABLE 


sCLEAR DEVICE, SET MAINT. BIT IF I MODE 


3 CALL 
3 CALL 
3CALL 


TO ROTATE LINE POINTER 
TO SET UP LPR DEVICE REGISTER 
TO ZERO BUFFER AREA 


2 SMAAK HHAHeHeeeeeeeeeKeeekeneeteaeaeeeteeteneenegeeaneeeaeseeeeeenere 


SEQ 31 
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T PARAMETER BLOCK 


sDZv11 gr AND REGISTER INDIRECT POINTERS 
sWORKING AREA 


DZVCSR: 160040 ;°/W 
HDZVCSR:160061 :R/w 

DZVRBUF : 160042 FREAD ONLY 
HDZVRBUF :160043 ;READ ONLY 


DZVTCR: 160044 sR/W 
HDZVTCR:1600465 ;R/W 
DZVMSR: 160046 ;READ ONLY 
HDZVMSR:160047 ;READ ONLY 
DZVTDR: 1600466 ;WRITE ONLY 
HDZVTOR:160047 ;WRITE ONLY 


sDEFAULT DZV VECTORS 


DZVRIV: 300 sREC INTR VECTOR 
DZVRIS: 302 sREC_INTR STATUS 
DZVTIV: 304 sXMIT INTR VECTOR 
DZVTIS: 306 sXMIT INTR STATUS 
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PARAMETER BLOCK 


sTIME TABLE FOR RELATIVE TIMING TESTS 
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000001 


032737 
001403 


013737 
013737 
02 


7 
012737 


012737 
012737 
004 


000040 


000042 


000052 


30 002152 


0000 
000032 


000176 


000174 
7 017522 
7? 000570 
000040 


7 001422 


000042 
000040 


001000 
001422 


7 001141 


002154 


0-17 
PROGRAM INITIALIZATION AND START UP. 


3 PROGRAM a a 
:LOCK OUT INTERRUPTS 

3SET UP cok teh STACK 

sSET UP POWER FAIL VECTOR 

SCLEAR PROGRAM CONTROL FLAGS AND COUNTS 
TYPE TITLE MESSAGE 


UFDSET = 1 
eSTART: 
BIT #B1T5 ,a#52 sARE WE UNDER UFD ? 
BEQ 1$ 3NO, THEN SKIP NEXT INSTRUCTIONS 
EMT 42 3GET OSRERR ADDRESS 
CLR 42(R0) INITIALIZE IT TO NO ERROR 


18: 
3zLCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 
EMTSAV: —* 30,SAV30 szSAVE EMULATOR ADDRESS 


Vv 32, SAva2 co EMULATOR PRIORITY LEVEL 
BR VAKOR 33GET AROUND —* * 


HERE 
vets -WORD 0 PUT PRIORITY LOCATION HERE 


. 
. 
3 XRRVVXIVXVIVV 


28: MOV @STACK SP 3SET UP STACK 
ATPS @MasK sLOCK OUT sNTERRUPTS 
MOV #SPURDN 2824 3SET UP POWER FAIL VECTOR 
MOV #SERROR,EMTVEC ;SET UP ERROR VECTOR 
MOV #340 ,EMTVEC+2 


CLR SPASS sCLEAR PASS COUNT 

CLRB SERFLG ; CLEAR yt FLAG 

MOV #O2V.MAP,ACTIVE ;GET MAP POINTER. 

Mov #1 RUN 3POINT POINTER TO FIRST DEVICE. 
CLR SERTTL CLEAR ERROR COUNT 

CLR SERRPC sCLEAR LAST ERROR POINTER 

CLR by oe sSET UP FOR TEST 1 

MOV @. START, SLPADR sset uP oe FAIL BEFORE 


ESTING 
= UP FOR SMALL 11 SWITCH a — 
sPOINT TO SOFTWAR 


#SUREG , SUR WR 

ROY sDISPREG, DISPLAY sPOINT TO SOFTWARE 4 4 vy REGISTER 

CALL FALCON 3 CHECK FOR FALCON (KXT11) 33GPA 

BEQ 3 If NOT 33GPA 

CALL FALCINI 3 ves, a FOR FALCON 33GPA 

BIC #40 ,EMTVEC+2 3 LOWER TO 6. 33GPA 
1000$: :3GPA 

TST8 INIFLG SHAVE WE ALREADY BEEN HERE TODAY?” 

BNE 31F SO, SKIP PRINTING THE TITLE 

CMP #42 ,@SENDAD 31F RUNNING UNDER ACT 

BEQ 3D0N'T PRINT TITLE 

BIT #B115,a#52 sARE WE UNDER UFD ? 

BNE 18 VES, THEN SKIP THE TITLE PRINTOUT 


TYPE in ITLE 


PRINT THE eesti TITLE 
= 38 


ET THE ONCE ONLY FLAG 
DETERMINE GHETHER APT SIZING SHOULD sad — 


— — 

3° 
ae 

or 

— 

wn 

— 

o 


SEQ 34 


— ee ee 


J 3 
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011434 
00 
0 000052 


6 
000001 176656 


001500 001174 


001502 001170 


8 
PROGRAM INITIALIZATION AND START UP. 


158: 


168: 
17$: 


208: 
258: 


BPL 15$ zuf NOT, GO CHECK FOR AUTO-SIZING 

JSR PC, SETAPT SOTHERWISE, GO DO APT SIZING FROM ETABLE 
JP 105$ 60 PRINT bry’ STATUS TABLE 

BIT #21TS 2052 3 ARE WE UNDER UFD ? 

BNE 17$ YES, THEN GO AUTOSIZE e SETUP 

TST a#42 3 CHAINED UNDER x 33GPA 
BEQ 16% 3; BR IF NOT 33GPA 
CALL = SETAPT 3 YES, SET-UP FROM ETABLE S:GPA 
JmP 105 3 AND PR S:GPA 
CALL  GETSWR 3 GET INITIAL SWITCH SETTING. ::GPA 
BIT #Su00,aSuR SRESELECT ? 

BNE 208 31F YES, GO SET UP THE INFORMATION 

JMP 55$ zie NO, SKIP THE INTERROGATION 

MOV DZV MAP, RO [POINT TO THE BEGINNING OF THE MAP TABLE 
CLRB WORF LG SMAKE SURE A MAP GETS PRINTED 

CLR (RO)* [CLEAR A TABLE LOCATION 


CMP RO, #0Z2V.END sHAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
BNE 258 sIF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE 
dDECB INIFLG ZINSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 


sTHE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
sTABLE AND SET UP THE DIAGNOSTIC. 


geet THE BASE ADDRESS OF 4 —D 
GETCSR= 


. INTER FOR FALCON TWEAKER 33GPA 
INSTR — THE STRING INPUT ROUTINE 
91$ sPOINTER TU MESSAGE TO BE PRINTED 
PARAM sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
160000 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
167770 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
DZCRO sPOINTER TO MAP LOCATION TO BE FILLED 
BYTE 7 3MASK OF INVALID BITS FOR THIS PARAMETER 
BYTE 1 sNUMBER OF PARAMETERS TO STORE 


MOV DZCRO, SBASE COPY BASE ADDRESS TO ETABLE 
3GET THE BASE VECTOR ADDRESS 
GETVEC= 


. : POINTER FOR FALCON TWEAKER 33GPA 
INSTR sCALL THE STRING INPUT aed INE 
928 3POINTER TO MESSAGE TO BE 


PRINTED 
OCTAL TO ASCII CONVERT ROUTINE 


PARAM sCALL THE 

300 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
776 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
dzvco sPOINTER TO MAP LOCATION TO BE FILLED 

BYTE 3 MASK OF — BITS FOR THIS PARAMETER 

BYTE 1 NUMBER OF PARAMETERS TO STORE 


MOV =s-»OZVCO,SVECT? = : COPY VECTOR TO ETABLE 
GET THE MODE OF OPERATION (E,1.S) 
INSTR 3CALL THE STRING INPUT ROUT INE 


ALL THE $ 
SPOINTER TO THE MESSAGE TO BE PRINTE 
SETFLG sCALL THE MAINTENANCE FLAG SETUP ROU 
MANTO sTHIS IS THE FLAG BEING SETUP 


iat. THE NUMBER OF DZV11°S RUNNING 
INS 3 CALL THe. STRING INPUT wt INE 
ss sPOINTER TO MESSAGE TO BE PRINTED 


d 
TINE 


CVDZA-D MACY11 30(1046) T1-MAR-83 10:13 PAGE 10-19 
0:06 PROGRAM INITIALIZATION AND START UP. 


CVDZAD.P11 11-MAR-83 1 
(2) 002544 104405 
(2) 002546 000001 
(2) 002550 000020 
(2) 002552 001344 
(2) 002554 000 
oH 002555 001 
(1) 002556 012737 000017 
9 002 012737 017470 
(1) 002572 032777 000010 
(1) 002600 001402 
(1) 002602 737 002762 
(1) 002606 012737 000001 
(1) 002614 1135737 001344 
(1) 002622 005337 001344 
(1) 002626 001404 
(1) 002630 000261 
(1) 002632 006137 001410 
(1) 002636 000771 
(1) 0026460 013737 001410 
(1) 002646 012700 001500 
(1) 002652 012701 001512 
(1) 002656 012702 001204 
(1) 002662 000241 
(1) 002664 006037 001346 
(1) 002670 006237 001346 
(1) 002674 103404 
(1) 002676 012711 177777 
(1) 002 137 003650 
(1) 002 012011 
(1) 002710 062721 000010 
(1) 002714 012011 
(1) 002716 721 000010 
(1) 002722 012021 
(1) 002724 012021 
(1) 002726 012021 
(1) 002 757 
(1) 002732 032777 000010 
(1) 002740 001002 
(1) 002742 000137 003650 
(1) 002746 004737 002762 
(1) 002752 105337 001422 
3, ; 002756 137 003706 
(1) 
(1) 
(1) 002762 
(2) 002762 106403 
(2) 002764 003257 
(2) 002766 104405 
(2) 002770 000001 
(2) 002772 000017 
(2) 002774 001504 
(2) 002776 360 
(2) 002777 001 


001346 


176344 55$: 


658: 


#17,LINEO 
#17470, PARO 


#SW03,aSuR 
308 


PC,65$ 
#1, SAVACTV 


STMP1 .DZVNUM 
STMP1 


408 
SAVACTV 
5$ 


SAVACTV ,STMP2 
#0ZCRO,RO 


#02CR1,R1 
#SD0W0,R2 


STMP2 
STMP2 


508 
#-1,(R1) 
1008 

(RO)+, (R1) 
#10,(R1)¢ 
(RO)*, (R1) 
#10, (R1)¢ 
(RO)*, (RID* 


(RO)+, (RI) 
Sanaa 


45$ 
#Sw03,asur 
608 

1008 


PC.65$ 
INIFLG 
1058 


sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
SLOWEST LEGITIMATE VALUE OF EXPECTED RE SPONSE 
HIGHEST LEGITIMATE VALUE OF wht RE SPONSE 
sPOINTER TO MAP LOCATION TO BE FILLED 

sMASK OF INVALID BITS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 


3SET UP DEFAULT LINES 
3SET UP DEFAULT LPR PARAMETE 

am gt hae ON; 19.2 KBAUD; 2S 10 BITS; 8 BIT/CHAR 
3 WANT PARAMETERS? 

215 NO. SKIP —* PARAMETER CALL 

3GET PARAMETERS 

s INITIALIZE at, & DEVICE SELECTION PARAMETER 
sCOPY THE NUMBER DEVICES 


3STMPI a THE COUNT OF UNINITIALIZED 

: perce DEVICES 

sSET A BIT FLAG Le INDICATE AN ACTIVE DEVICE 
sPOINT TO THE NEXT DEVICE 

360 DO THIS PROCEDURE AGAIN 

3@ OF TIMES 

3SET A POINTER TO THE tye INFORMATION 
sPOINT R1 TO THE REST OF THE MAP TABLE 
POINT TO rae, s Peres yeep WORDS 
sINITIALIZE THE ‘C’* BIT FOR A ROTATION 
sSKIP MAPPING NSETUP FOR DEVICE O- IT°S DONE 
ISOLATE A SELECTION FLAG IN THE “C'* BIT 

31S THIS ply SELECTED? IF YES, GO LOAD TABLE 
TERMINATE THE LIST 

360 TO THE NEXT BLOCK 

s ADDRES 


An THE NEXT DZV11 ADDRESS VALUE 
sPOINT TO THE NEXT VECTOR VALUE 


3 PARAMETERS 
sMAINTENANCE MODE 


sASK PARAMETERS ? 

31F NO, GO DO AUTO SIZING 

3GO SET UP FOR AUTO SIZING 

360 ASK PARAMETERS 

s INSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
260 TO THE NEXT BLOCK 


3GET THE ACTIVE LINES PARAMETER 


INSTR 


— 


sCALL THE STRING gl gel 

sPOINTER TO MESSAGE TO BE PRINTED 

sCALL THE OCTAL TO ASCII CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
ate LEGITIMATE VALUE OF wh NE RE SPONSE 
sPOIN 9 TO MAP LOCATION TO BE FILLED 

sMASK OF INVALID BITS FOR THIS PARAMETER 
sNUMBER OF PARAMETERS TO STORE 


SEQ 36 


Le — —————————w —— — — = 
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9 003000 105037 001423 CLRB 
(1) 
(1) 3004 005737 001510 TST 
(1) 003010 100021 BPL 
(1) 003012 013703 001504 MOV 
(1) 003016 006003 708: ROR 
(1) 30 103410 acs 
(1) 003022 001414 EQ 
(1) 003024 00620 ack 
(1) 003026 103373 Bcc 
(1) 003030 104402 001356 758: TYPE 
(1) 003034 104402 010346 TYPE 
(1) 3040 000750 BR 
(1) 003042 001772 80$: BEQ 
(1) 3044 006203 ASR 
(1) 3046 103370 Bcc 
(1) 3050 000241 CLC 
3, ; 003052 000761 BR 
1) 
(1) 
q1) 85$: 
(2) 003054 104403 INSTR 
(2) 003056 003332 G4 
(2) 3060 104405 PARAM 
(2) 003062 0 
(2) 003064 17 17 
(2) 3066 001506 PARO 
(2) 3070 000 -BYTE 
(2) 003071 001 BYTE 
(1) 3072 012702 001504 MOV 
(1) 003076 012703 001506 MOV 
(1) 003102 011304 MOV 
(1) 003104 006304 ASL 
(1) 31 016437 017462 006474 MOV 
(1) 003114 000313 $ 
(1) 003116 052713 010070 BIS 
(1) 003122 u 000012 90S: MOV 
(1) 003126 011363 000012 MOV 
(1) 003132 poe th 000012 ADD 
(1) 0031 062703 000012 ADD 
(1) 003142 020327 001734 CMP 
(1) 31 001365 BNE 
(1) 31 000207 RTS 
(1) 003152 030600 052123 041440 91$: eASCI 
(1) 003216 030600 052123 053040 92$: eASCI 
(1) 003257 200 044514 042516 938: eASCI 
(1) 003532 042200 043105 052501 94$: eASCI 
(1) 003402 021600 047440 0201 95$: eASCI 
(1) 003445 200 040515 047111 968: eASCI 
(1) 003466 020200 042533 052130 eASCI 
(1) 003522 020200 044533 05211 -ASCI 
(1) 003557 055440 05212 eASCI 


PAS Gam Be tome Pag FY Pad PR Pg 


L 3 


PROGRAM INITIALIZATION AND START UP. 


HORFLG sMAKE SURE THE CHANGES ARE PRINTED 


sTHIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
31S LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 


MANTO 31S STAGGERED THE MODE OF erie 

5$ z1F NOT, SKIP THIS SEGMENT 

LINEO,R3 3GET A SCRATCH COPY OF THE ACTIVE LINES 

RS sGET A LINE SELECTION BIT(EVEN NUMBER LINE) 
808 s1F IT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO 
85$ s1F ALL HAVE BEEN CHECKED, CONTINUE PROCESSING 
R3 sIF IT IS 0. CHECK TO SEE IF THE NEXT IS TOO 
708 sIF THIS ay S$ 0 T00, GO CHECK THE NEXT PAIR 
oSQUES sTHIS IS AN INCORRECT PARAMETER 

eMBADLN sLET THE USER KNOW ABOUT IT 

$38 :GO GET THE CORRECT PARAMETER 


:1F ANOTHER FLAG ISN'T SET, THERE'S AN ERROR 
R3 sGET THE NEXT FLAG 


75$ sIF IT ISN'T SET, THERE'S AN ERROR 
INITIALIZE THE “C'’ BIT FOR TESTING OF THE NEXT PAIR 
708 :GO TEST THE NEXT PAIR OF FLAGS 


REGISTER ARGUMENT 


sCALL_THE STRING INPUT ROUTINE 
sPOINTER TU MESSAGE TO BE PRINTED 
3CALL THE OCTAL TO ASCII CONVERT ROUT INE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF wht RE SPONSE 
sPOINTER TO MAP LOCATION TO BE FILL 

0 sMASK OF INVALID BITS FOR THIS PARAMETER 

1 sNUMBER OF PARAMETERS TO STORE 


@LINEO,R2 3POINT TO THE LINE SELECTION PARAMETER 
#PARO.RS sPOINT TO THE CHOSEN PARAMETERS 

(R3) ,R4 sUSE BAUD RATE AS AN INDEX IN DELAY TABLE 
R4 BOUNDARY 


sALIGN INDEX ON WORD 
DLYTBL(R4) ,DLYCNT ;SET THE * COUNT FOR THIS BAUD RATE 
(R3) 3PLACE IN HIGH BYTE 

SPLACE EXTRA PARAMETERS INTO LOC 

sLOAD THE LINES 


(r3), *12(R3) LOAD THE PARAMETERS 

#12,R2 sPOINT TO THE NEXT SET 

3 ee OF BOTH PARAMETERS 

HAVE THE TABLE BOUNDARIES * EXCEEDED? 
+ A My Ha Fl ARAME TERS 
°500>/1ST CSR ADDRESS (160000: 167770): / 

<200>/1ST VECTOR ADDRESS (300:770): / 

Sep es ACTIVE ey BIT <IN OCTAL>(001:17): / 
<200>/D T BAUD RATE <IN OCTAL>(00:17): / 
3354 OF DZV11°S <IN OCTAL> (1:20): / 
<200>/MAINTENANCE MODE/ 


#12,R3 
R3,@PARI7 
* 


<200>/ CEXTERNAL <H325> (E))/ 
<200>/ CINTERNAL <DIVESROS=1>(1)1/ 
<200>/ [STAGGERED <H329> ($)}: / 


SEQ 37 


SEQ 38 
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(1) 003616 042600 052116 051105 97%:  .ASCIZ <200>/ENTER DELAY PARAMETER: / 

(1) 003650 EVEN 

(1) 003650 1008: 

(1) 003650 122737 000377 001422 CPB 0s #377, INIFLG sONLY DO AUTO SIZE ON 1ST START 

(1) 003656 001013 BNE 1059 

a) 032777 000200 175416 BIT #B1T7,aSuR ‘e1T7=12? 

(1) 003666 001007 BNE 105$ :BR IF NO AUTO SIZE 

(1) 003670 005737 017536 TST KXTFLAG 3 FALCON a 33GPA 

(1) 003674 001402 BEQ 1002$ 3 SKIP NEXT IF NOT. 33GPA 

(1) 003676 000137 002434 JMP 208 : YES, DON'T AUTO-SIZE. 33GPA 

(1) 003702 10028: 3364 

(1) 003702 004737 011562 JSR PC ,AUTO.SIZE 360 DO THE AUTO SIZE 

(1) 003706 105737 001423 105$: TSTB HDRFLG sHAS THE TABLE BEEN TYPED VET? 

(1) 003712 001021 BNE 120$ :1F SO, DON'T TYPE IT AGAIN 

(1) 003714 105337 001423 DECB ss HDRFLG SINDICATE THAT THE TABLE WILL BE TYPED 

(1) 003720 104402 010320 TYPE ,XHEAD STYPE MAP HEADER 

(1) 003724 012700 001500 MOV #DZV.MAP,RO 3SET POINTER 

(1) 003730 010037 001344 1108: MOV RO, STMP1 :POINT | iß THE MAP LOCATION 

(1) 003734 012037 001346 MOV (RO) +, STMP2 3SET D 

(1) 003740 022737 177777 001346 CMP #-1,$TMP2 SEND OF ist? 

(1) 003746 001403 BEQ 120 7BR IF YES 

(1) 003750 104411 115$: CONVRT sCALL THE OCTAL TO ASCII CONVERSION ROUTINE 

(1) 003752 010410 XSTATQ sCONVERT THE DATA AT THIS ADDRESS 

(1) 003754 7% BR 1108 360 PRINT THE NEXT PARAMETER 

(1) 003756 013737 001410 001406 120$: MOV SAVACTV .DZVACTV COPY BIT MAP OF SYSTEM re Ma ACTIVE 

(1) 003764 113737 001414 001416 MOVB DZVNUM,SAVNO COPY NO. OF SYSTEM DEVICES ACTIVE 

(1) 003772 032777 100 175304 BIT #5406, 8SuR SDESELECT SPECIFIC DEVICES?? 

(1) 004000 001431 BEQ 1358 sBR IF NO. 

(1) 004002 1218: 

(2) 0064002 104403 INSTR sCALL THE STRING INPUT ROUTINE 

(2) 004004 010236 MNEW sPOINTER TO MESSAGE TO BE PRINTED 

(2) 004006 104405 PARAM sCALL THE OCTAL TO ASCII CONVERT ROUTINE 

(2) 004010 000001 1 s sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

(2) 006012 177777 177777 sHIGHEST LEGITIMATE VALUE O° EXPECTED RESPONSE 

(2) 004014 001406 DZVACTV sPOINTER TO MAP LOCATION TO « FILLED 

(2) 004016 000 .BYTE 0 MASK OF INVALID BITS FOR THIS PARAMETER 

(2) 004017 001 BYTE 1 SNUMBER OF PARAMETERS TO STORE 

(1) 006020 023737 001406 001410 CMP DZVACTV,SAVACTV ;IS THE VALUE VALID? 

(1) 006026 101403 BLOS 1228 :BRANCH IF YES 

(1) 006030 1046402 010110 TYPE MERR3 :1F NOT THEN TYPE ERROR 

(1) 004034 000762 BR 1218 3G0 REASK QUESTION 

(1) 004036 105037 001416 122$: CLRB SAVNO SCLEAR NO. OF DEVICES BEING TESTED 

(1) 006062 013737 001406 001344 MOV DZVACTV,STMP1 COPY BIT MAP OF ACTIVE DEVICES BEING TESTED 

(1) 006050 006237 001344 126$: ASR STMP1 SSHIFT OUT AN ACTIVE BIT 

(1) 0064054 103002 BCC 1278 s1f NOT ACTIVE == INCREMENT 

(1) 006056 105237 001416 INCB  —s SAVNO SIF ACTIVE RECORD IT 

(1) 004062 001372 127$: BNE 126$ 31F ALL ACTIVE BITS RECORDED DON'T BRANCH 

(1) 006064 032777 000020 175212 135$: BIT #SW04 ,aSuR SCHECK TO SEE IF DELAY COUNT CHANGES 

a) 72 001407 BEQ 1408 31F NOT, GO CLEAR VECTOR AREA 

(2) 006074 INSTR sCALL THE STRING I 

(2) 004076 003616 SPOINTER TO MESSAGE T 

(2) 004100 104405 PARAM SCALL THE OCTAL TO ASCII] CONVERT ROUT INE 

(2) 1 1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

(2) 006104 177777 177777 SHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

(2) 004106 006474 DLYCNT SPOINTER TO MAP LOCATION TO BE FILLED 

(2) 004110 000 BYTE 0 MASK OF INVALID BITS FOR THIS PARAMETER 


— — — — —— — — — —— — — — 
— — — — — —— - . 


— — — — — — 
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CVDZAD.P11 11-MAR-83 10:06 PROGRAM INITIALIZATION AND START UP. 
(2) 004111 001 BYTE 1 NUMBER OF PARAMETERS TO STORE 
(1) 006112 012700 000300 140$: MOV #300,R0 + PREPARE TO CLEAR THE FLOATING 
(1) 006116 012701 000302 MOV #302,R1 VECTOR AREA. 300-776 
(1) 004122 010120 145$: MOV R*.CROD* sSTART PUTTING "'PC*2 = HALT’ 
(1) 004124 005021 CLR (Rid© IN VECTOR AREA, 
(1) 006126 022021 CMP (RO)+, (R1)* 3sPOP POINTERS 
(1) 006130 7 017536 TST KXTFLAG 3 If FALCON... 33GPA 
(1) 004134 001403 BEQ 1001$ GPA 
(1) 004136 020027 000400 CMP RO, #400 ey AT 400. 33GPA 
(1) 004142 000402 402 SKIP NEXT 33GPA 
(1) 006144 1001$: GPA 
(1) 004144 022700 001000 CMP #1000,R0 3ALL DONE?? 
3 004150 001364 BNE 145$ 3BR IF NO. 
St sTEST START AND RESTART 
(1) 
(1) 004152 012706 001120 -BEGIN: MOV #STACK,SP 3SET UP STACK 
(1) 004156 106427 000200 MTPS #MASK sLOCK OUT INTERRUPTS 
(1) 004162 005737 000042 TST 2442 31S PROGRAM UNDER MONITOR CONTROL 
(1) 004166 001015 BNE 2s 3BR IF YES 
(1) 006170 032777 000004 175106 BIT #BIT2,aSwR sCHECK FOR LOCK ON TEST 
(1) 004176 001406 BEQ 1$ 3BR IF NO LOCK DESIRED. 
(1) 004200 104402 010134 TYPE eMLOCK sTYPE LOCK SELECTED. 
(1) 004204 012737 000240 004474 MOV #NOP ,TTST sADJUST SCOPE ROUTINE. 
(1) 004212 00040 GR 2s sCONTINUE ALONG. 
(1) 004214 013737 004722 004474 1$: MOV BRW,TTST sPREPARE NURMAL SCOPE ROUTINE 
(1) 004222 012737 010722 001252 2$: MOV @CYCLE,SLPADR ;START AT ‘‘CYCLE’’ FIND WHICH DEVICE TO TEST 
(1) 006230 113737 001416 001415 MOVB SAVNO, SAVNUM 3; COPY ACTIVE DEVICES BEING TESTED 
(1) 236 104402 010025 TYPE oMR TYPE ‘‘RUNNING'’ 
(1) 006242 000177 175004 JMP @SLPADR sSTART TESTING 
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VDZAD.P11 
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37 
010722 
000001 

006 
002010 
000001 

003 


000042 


002 


002 


001415 


001126 


END OF PASS ROUTINE 


sEND OF PASS 
bas | NAME OF TEST 


» SBTTL 


s*IF THERES A MONITOR GO TO IT 
3e1F THERE ISN'T JUMP TO CYCLE 


SEOP: 


SEOPCT: 


SENDCT: 
SGET42: 


SENDAD: 


SDOAGN: 


SRTNAD: . 


XCSR: 


XVEC: 


sRESTART 


END OF PASS ROUTINE 


—AEXXVDEVVVVXVVOXVVO 


stINCREMENT THE PASS NUMBER (SPASS) 


SAVNO, SAVNUM 
ME 

SPASS 

#100000, SPASS 

(PC)+ 

SDOAGN 

pests Bote 

2742 ,R0 


SDOAGN 
PC, (RO) 


a(PC)+ 
CYCLE 


6.2 


3.2 


PASS COUNT 
CHECK . Teche TO ACT-11 


sCLEAR LAST ERROR PC 
sCLEAR ERROR FLAG 
sTYPE END PASS 

dasa. CSR 


sSHOW IT 

TYPE VECTOR 
sSHOW IT 

3RAISE PASS COUNT 
sTYPE PASSES 
;SHOW IT 

:RESTORE PASS COUNT 
sTYPE ERRORS 

sSHOW I 

INC DEVCNT FOR APT 

sARE ALL DEVICES TESTED? 
3BR IF NO. 


sRESTORE THE COUNT 
33ZERO THE NUMBER OF ITERATIONS 
3 INCREMENT THE PASS NUMBER 


33DON'T ALLOW A NEG. NUMBER 
:3LOOP? 


33YES 
ssRESTORE COUNTER 


3ACT11 
3 ;RETURN 


SEQ 40 






VDZAD.P11 11-MAR=83 10:06 
(2) 004444 002040 
000001 


004446 
(2) 004450 006 002 
(2) 004452 001126 
000001 


(2) 004456 006 002 
(2) 004460 001256 


(5) 004462 005037 001262 
(5) 004666 022716 012274 


(5) 004474 000406 
(5) 004476 105777 174606 
(5) 004502 7 


10006 
(5) 004504 017766 174602 
040000 


— 
(3) 004522 000416 
(3) 


(3) 004524 013746 


(3) 556 

(3) 560 

(3) 006560 105737 001247 
(3) 564 001404 

(3) 566 105037 001247 
(3) 004572 005037 001354 
(3) 004576 032777 

(3) 001011 

(3) 005737 001126 
(3) 338 
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177776 
174564 


174500 





























END OF PASS ROUTINE 


DZVRIV 
XPASS: 1 
-BYTE 6,2 
‘ho 


BYTE 6,2 
SERTTL 


sSCOPE LOOP AND ITERATION HANDLER 


-SBTTL SCOPE HANDLER ROUTINE 


XXR/EXVVEXXVERRV——— 
S*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
S*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
S*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

3 THE SWITCH OPTIONS ane los BY THIS ROUTINE ARE: 


—B LOOP ON TEST 

a euitel INHIBIT ITERATIONS 

3*CALL 

3* SCOPE 3 :SCOPE=10T 

SSCOPE: 

SCOPE: CLR SERRPC SCLEAR LAST ERROR PC. 
CMP #TST142,(SP) 31S THIS THE SCOPE at THe BEGINNING OF TST1? 
BEO S$XTSTR 31F $0, DON'T LOOP ON 

TTST: BR 1$ 36010 18 (IF LOCK su02=1; THIS LOC =240) 
TSTB 3s @STKS [KEYBOARD DONE? 
BPL SOVER BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
MOV @STKB,-2(SP) CLEAR DONE 81 

1$: BIT #B1T14,aSuR :3LOOP ON PRESENT TEST? 
BNE SOVER YES IF Swi4=1 

;MMARNSTART OF CODE FOR THE XOR testenseean 

$XTSTR: BR £% 331 RUNNING ON THE “KOR: TESTER CHANGE 


3;THIS INSTRUCTION TO A “NOP’' (NOP=240) 
MOV @MERRVEC,-(SP) 3:SAVE THE CONTENTS OF NOME ERROR VECTOR 
MOV seen 33SET FOR ‘oo OuT 


TST 27177060 sTIME OUT XOR? 
MOV (SP)+ ,#ERRVEC :ZRESTORE THE —** VECTOR 
BR SSVLAD O THE NEXT TE 


VL st 
5$: CMP (SP)+, (SP) SS CPEAR THE STACK AFTER A TIME OUT 
MOV (SP) +, a#ERRVEC 3 RESTORE THE ERROR VECTOR 

BR SOVER ;LOOP ON THE PRESENT TEST 
6$: ;##HAREND OF —* FOR THE xon Testensaene 


2s: TSTB = SERFLG 33HAS AN ERROR OCCURRED? 

BEQ 3$ :3BR | 
4$: CLRB sree $3ZERO THE ERROR FLAG 

CLR TIMES CLEAR THE NUMBER” OF ITERATIONS TO MAKE 
3$: BIT malt .asun EEINWIBIT ITERATIONS 

TST SPASS 33 1F FIRST PASS OF PROGRAM 

BEQ 1$ INHIBIT 55 


SICNT $7 INCREMENT ITERATION C 
STIMES ,SICNT 3;CHECK THE NUMBER OF ITERATIONS MADE 
SCVER 338R IF MORE ITERATION REQUIRED 


— — — — — — — — — — — 


en ——— —— — — — 


SEQ 42 
CVDZA=D MACY11 30(1046) 11-MAR-83 10: Ys PAGE 10-25 
CVDZAD.P11 T1-MAR=83 10:06 SCOPE HANDLER ROUTINE 
(3) 004630 012737 000001 001250 15: MOV #1,SICNT hs ty ELT THE ITERATION COUNTER 
(3) 004636 013737 0046724 001354 MOV SAXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
(3) 004664 105237 001246 SSVLAD: INCB STSTNA :;COUNT TEST NUMBERS 
(3) 006650 113737 001246 001124 MOVB STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
(3) 006656 011637 001252 MOV (SP) ,SLPADR ssSAVE SCOPE LOOP ADDRESS 
(3) 004662 013777 001246 174416 SOVER: MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMB 
(3) 006670 013716 001252 MOV SLPADR, (SP) 33FUDGE RETURN ADDRES 
(5) 004674 004737 007320 JSR PC, SERV.G sFIND OUT IF *G WAS TYPED 
(5) 006700 105037 001424 CLRB =s ANTFLG CLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST 
(S$) 004704 005737 001372 TST MODE sHAS THE MODE BEEN C a 
(5S) 004710 001003 BNE 4% 414 NOT INTERNAL , GO DO A TEST 
(5) 004712 112737 000010 001424 MOVB @MAINT ,ANTFLG F INTERNAL MODE NOW, SET THE MAINTENANCE BIT 
(5) 004720 000002 4$: RTI $60 DO THE TEST 
(5) 004722 000406 BRW: 406 
004724 000005 SMXCNT: 5 33MAX. NUMBER OF ITERATIONS 
3 sCHECK FOR FREEZE ON CURRENT DATA 
(1) 
(1) 004726 032777 001000 174350 .SCoP1: BIT #SW09,asuR s1S SwO9=1(SET)? 
(1) 004734 001405 BEQ 1$ :BR NOT SET. 
(1) 004736 005737 001364 TST LOCK 1S THERE A TIGHT LOOP SPECIFIED? 
(1) 004742 001402 BEQ 1$ NO, RETURN 
(1) 006744 013716 001364 MOV LOCK, (SP) 31F YES, GOTO THE ADDRESS IN LOCK. 
9 004750 000002 1$: RTI 360 BACK. 
(1) 006752 032737 000040 000052 .TYPE: BIT #B1TS,a#52 sARE WE UNDER UFD ? 
(1) 004760 001004 BNE 1$ sYES, THEN NO TYPEOUT 
(1) 006762 032777 010000 174314 BIT #SW12,aSwR INHIBIT ALL ee 
(1) 004770 001403 BEQ STYPE 31F NOT, GO TYPE 
(1) 004772 062716 000002 1$: ADD #2, (SP) 3SKIP OVER MESSAGE POINTER 
(1) 004776 000002 RTI sRETURN TO WHERE PROCEDURE WAS INVOKED 
—8 -SBTTL TYPE ROUTINE 
(3) PEAS I LISSA STATE TTT ITT ITT rr ii iii tii tiiiiiitiftty 
(2) s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 as 
(2) s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(2) 3*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(2) 3 *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
8 zNoIĩE: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3 
(2) 3*CALL: 
(2) 31) USING A TRAP INSTRUCTION 
= 3* on TYPE oMESADR ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
$f 
(2) 3° TYPE 
(2) se MESADR 
(2) A 
(2) 005000 105737 001323 STYPE: TSTB STPFLG 3218 ag A TERMINAL? 
(2) 005006 100002 BPL 1$ ssBR IF Y 
(2) 005006 000000 HALT 3 3HALT WERE IF NO TERMINAL 
(2) 005010 000430 BR 3$ 3: sLEAVE 
(2) 005012 010046 1$: MOV RO, (SP) 33SAVE RO 
(2) 005014 017600 000002 MOV @2(SP) ,RO 3 3GET ADDRESS 4 ASCIZ STRING 
(2) 005020 122737 000001 001140 CMPB @APTENV .SENV 3sRUNNING IN APT MODE 


ee) 


SEO 63 


CVDZA=D MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-26 
CVDZAD.P11- 17-MAR=83 10:06 TYPE ROUTINE 
(2) 005026 001011 BNE 628 32N0,GO CHECK FOR apt CONSOLE 
(2) 005030 132737 000100 001141 BIT  #APTSPOOL,SENVM ::SPOOL MESSAGE TO AP 
(2) 005036 001405 BEO 628 3:N0,GO CHECK FOR CONS 
(2) 005040 010037 005050 MOV R1.618 S2SETUP MESSAGE ADDRESS FOR APT 
(2) 005064 004737 005342 JSR PC, SATY3 3:SPOOL MESSAGE TO AP 
(2) 005050 000000 61$: WORD 0 SIMESSAGE ADDR 
(2) 005052 132737 000060 001141 62$:  BITB  #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
(2) 005060 001003 BNE 60$ s3VES.SKIP TY 
(2) 005062 112046 28: MOVB = (RO) +, (SP) 32PUSM CHARACTER TO BE TYPED ONTO STACK 
(2) 005064 001005 BNE 4$ 3:BR If IT ISN'T THE TERMINATOR 
(2) 005066 005726 TST (SP)+ S21F TERMINATOR POP IT OFF THE STACK 
(2) 005070 012600 60$: MOV (SP)+,RO S:RESTORE RO 
(2) 005072 062716 000002 3$: ADD #2, (SP) TZADJUST RETURN PC 
(2) 005076 000002 RTI + RETURN 
(2) 005100 122716 000011 48: CPB s«# HIT, (SP) 7:BRANCH IF <HT> 
(2) 005104 001430 BEO 
(2) 005106 122716 000200 CMPB «CRLF, (SP) 3:BRANCH IF NOT <CRLF> 
(2) 005112 001006 BNE 5 
(2) 005114 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(2) 005116 104402 TYPE S:TYPE A CR AND LF 
(2) 005120 001357 SCRLF 
(2) 005122 105037 005330 CLRB =: SCHARCNT TECLEAR CHARACTER COUNT 
(2) 005126 000755 BR 2$ S:GET NEXT CHARACTER 
(2) 005130 004737 005212 5$: JSR PC ,STYPEC 3:60 TYPE THIS CHARACTER 
(2) 005134 123726 001322 6$: CMPB sSFIALLC,(SP)* = 3 IS i TIME FOR FILLER CHARS.? 
(2) 005140 001350 BNE 2$ SIF NO GO GET NEXT CHAR. 
(2) 005142 013746 001320 MOV SNULL,=(SP) SIGE # OF FILLER CHARS. NEEDED 
(2) T2AND THE NULL CHAR. 
(2) 005146 105366 000001 7$: DECB = s«41C SP) 3:DOES A NULL NEED TO BE TYPED? 
(2) 005152 002770 BLT 6$ 3:8R IF NO-=60 POP THE NULL OFF OF STACK 
(2) 005154 004737 005212 JSR PC ,STYPEC 3:60 TYPE A NULL 
(2) 005160 105337 005330 DECB  SCHARCNT 3:00 NOT COUNT AS A COUNT 
8 005164 000770 BR 7$ 33;LO0OP 
(2) SHORIZONTAL TAB PROCESSOR 
(2) 005166 112716 000040 83: move 3s #”*_, (SP) i REPLACE aL. WITH SPACE 
(2) 005172 004737 005212 9$: JSR PC, $TYPEC S:TYPE A SPACE 
(2) 005176 132737 000007 005330 BITS #7. SCHARCNT $ 3BRANCH iF NOT AT 
(2) 005204 001372 BNE TOP 
(2) 005206 005726 TST (SP)+ ::POP SPACE OFF STACK 
(2) 005210 000724 BR 2s 3:GET NEXT CHARACTER 
(2) 005212 STYPEC: 
(2) 005212 105777 174072 TSTB8 asics z:CHAR IN KYBD BUFFER? 30001 
(2) 005216 100022 BPL 10$ 3:8R IF NOT :J0001 
(2) 005220 017746 176066 MOV asTKB,-(SP) T:GET CHAR JD001 
(2) 005224 042716 177600 BIC #177000, (SP)  3;STRIP EXTRANEOUS BITS :MJ0001 
(2) 005230 122716 000023 CMPB Os @#SXOFF, (SP) S:WAS CHAR XOFF :JD001 
(2) 005234 001012 BNE 1028 3:8R IF NOT M0001 
(2) 005236 1018: :MJD001 
(2) 005236 105777 174046 TSTB 4s @STKS s:WAIT FOR CHAR M0001 
(2) 005242 100375 BPL 1018 MJD001 
(2) 005264 117716 176042 MOV astra (SP) 3:GET CHAR 380001 
(2) 005250 042716 177600 BIC 177660. «SP) s:STRIP IT :J0001 
(2) 005254 122716 000021 CMPB S:WAS IT XON? 380001 


(2) 005260 001366 BNE tit i 33BR IF NOT 34J0001 
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VOZAD.P11 11-MAR-83 ROUTINE 
(2) 005262 102$: 

(2) 005262 005726 TST 
(2) 005264 108: 

(2) 0052 05777 174024 TST8 
(2) 005270 100375 BPL 
(2) 005272 116677 000002 174016 MOVB 
(2) 005 122766 000015 000002 CMPB 
(2) 5 1003 BNE 
(2) 005310 105037 005330 CLRB 
(2) 005314 06 BR 
(2) 005316 122766 000012 000002 15s: CMPB 
(2) 005326 001402 BEQ 
(2) 005326 105227 INCB 
(2) 005330 SCHARCNT: .WORD 
3 005332 000207 STYPEX: RTS 
(2) 

8 

(2) 005334 112737 000001 005600 SATY1: move 
(2) 005342 112737 000001 005576 SaTY3: MOVB 
(2) 5350 000403 BR 
(2) 005352 112737 000001 005600 SaTY4: Move 
(2) 5360 SATYC: 

(4) 005360 01004 MOV 
(4) 005362 010146 MOV 
(2) 5364 105737 005576 TST8 
(2) 5370 001450 BEQ 
(2) 005372 122737 000001 001140 CMPB 
(2) 54 1031 BNE 
(2) 5402 132737 000100 001141 8118 
(2) 005410 001425 BEQ 
(2) 005412 017600 MOV 
(2) 005416 062766 000002 000004 ADD 
(2) 005424 005737 001120 18: TST 
(2) 005430 001375 BNE 
(2) 005432 010037 001134 MOV 
(2) 105720 2s: TST8 
(2) 001376 BNE 
(2) 005442 163700 001134 SUB 
(2) 005446 ASR 
(2) 005450 010037 001136 MOV 
8 005454 01 38 000004 001120 “ag 
(2) 017637 005510 3$: MOV 
(2) 005472 766 000002 000004 ADD 
(4) 005 013746 177776 MOV 
(2) 737 005000 JSR 
(2) 005510 4$: WORD 
(2) 005512 5$: 

(2) 005512 105737 005600 108: 1816 
(2) 005516 001416 BEO 
(2) 005520 005737 001140 TST 
(2) 005524 001413 BEQ 
(2) 005526 005737 001120 118: TST 
(2) 005532 001375 BNE 


(SP)+ 
acTPs 


108 
2(SP) oo 
es SP) 


SCHARCNT 
STYPEX 
auf, “gb 
STYP 

(Poe 

0 

PC 


— — —— — — — — 


233FIX STACK 
ssWAIT UNTIL PRINTER IS READY 


:3LOAD CHAR TO BE TYPED INTO DATA REG. 
33 ye A CARRIAGE RETURN? 


F_ NO 
; —— CHARACTER COUNT 


Hs CHARACTER A LINE FEED? 
3sBRANCH IF YES 

:3COUNT THE CHARACTER 
ssCHARACTER COUNT STORAGE 


eSBTTL APT COMMUNICATIONS ROUTINE 


—EXVXVXVVXVVVXVVVVVVODOO 


#1,SFFLG 
#1,SMFLG 


SATYC 
#1,SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 


5$ 
#@APTENV,SENV 
3$ 


#APTSPOOL ,SENVM ; 
BS 


@4(SP) ,RO 
#2,4(SP) 
SASGTYPE 
RO, SASGAD 
(RO)+ 

2s 

SASGAD ,RO 
RO 

RO, SMSGLGT 
— 
ao0 (52.48 


#2,4(SP) 
177776,-(SP) 
PC ,STYPE 


SFFLG 
12$ 
SENV 


12% 
SASGTYPE 
118 


33TO REPORT FATAL ERROR 
3310 TYPE A MESSAGE 


33TO ONLY REPORT FATAL ERROR 


33PUSH RO ON STACK 
33PUSH R1 ON STACK 
33 SHOULD Boge A MESSAGE? 


33IF NOT: 
: 3 30PERATING UNDER APT? 
ee NOT: BR 


ate on SPOOL MESSAGES? 
33GET RESSAGE ADDR. 
3;BUMP RETURN ADDR 
z3SEE IF BONE W/ LAST XMISSION? 
33PUT ADDR IN MAILBOX 
33FIND END OF MESSAGE 


33SUB START OF MESSAGE 
33GET MESSAGE LNGTH IN WORDS 
33PUT LENGTH IN MAILBOX 
ssTELL APT TO TAKE MSG. 


Z3PUT MSG ADDR IN JSR LINKAGE 
sBUMP RETURN ADDRESS 
PUSH 199776 ON ST ACK 
S:CALL TYPE MACRO 


33 SHOULD REPORT FATAL ERROR? 
NOT: BR 


: RUNNING UNDER APT? 
s31F NOT: BR 
:3F INISHED ry MESSAGE? 


34J0001 
34J0001 
;MJ0001 


34J0001 


SEQ 44 
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VOZAD.P11 11-MAR-83 T COMMUNICATIONS ROUTINE 

(2) 005534 017637 000004 001122 MOV @4(SP),SFATAL ;;GET ERROR * 

(2) 005542 062766 000002 000004 ADD #2,4(SP) RETURN ADDR. 

(2) 005550 005237 001120 INC SASGTYPE 33 TELL abi TO TAKE ERROR 

(2) 005554 105037 005600 128: CLRB SFLG 33CLEAR FAT. 4 FLAG 

(2) 005560 105037 005577 CLRB SLFLG 3sCLEAR LOG FLAG 

(2) 005564 105037 005576 CLRB SMFLG 3sCLEAR MESSAGE FLAG 

(4) 005570 012601 MOV (SP)+,R1 :3POP STACK INTO R1 

(4) 005572 012 (SP)+,RO 33POP STACK INTO RO 

(2) 005574 000207 RTS PC 3 sRETURN 

(2) 005576 SMFLG: .BYTE 0 33MESSG. FLAG 

(2) 005577 000 SLFLG: .BYTE 0 33LOG FLAG 

(2) 005600 000 SFFLG: .BYTE 0 3sFATAL FLAG 

(2) 005602 -EVEN 

(2) 0002 APTSIZE=200 

(2) 000001 APTENV=001 

(2) 000100 APTSPOOL=100 

oi 000040 APTCSUP=040 

3 zSTRING INPUT ROUTINE 

(1) 

(1) 005602 010346 e INSTR: MOV R3,-(SP) sSAVE R3 ON STACK 

(1) 005606 010446 MOV R4,-(SP) sSAVE R4 ON STACK 

(1) 5606 017637 000004 005624 MOV @4(SP), .ASG sGET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
(1) 005614 062766 000002 000004 ADD #2,4(SP) —* TO INSTRUCTION AFTER ADDRESS POINTER 
(1) 005622 104402 eINST1: TYPE PRINT THE MESSAGE 

(1) 005624 000000 MSG: 0 3MESSAGE IS POINTED TO FROM HERE 

(1) 005626 012704 010616 MOV #INBUF ,R4 sPOINT R4 TO THE INPUT BUFFER 

(1) 005632 012703 000007 MOV #7 ,R3 sSET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
(1) 005636 105777 173446 18: TST8 asixs sHAS A CHARACTER = i ate 

(1) 005642 100375 BPL 1$ 31F NO, KEEP WAITING FOR IT 

(1) 5644 117714 173442 MOVE @STKB, (R4) sIF YES, SAVE IT IN THE INPUT BUFFER 

(1) 005650 142714 000200 B1¢B #200, (R4) sKEEP ONLY THE 7-BIT ASCII INFORMATION 
(1) 005654 122427 000015 CMPB (R4)4 815 31S THIS CHARACTER A LINE FEED? 

(1) 005660 001417 BEQ INSTR2 cif $0. TERMINATE THE INPUT SEQUENCE 

(1) 005662 105777 173426 2s: TSTB = @STPS 21f NO Re og TO SEE IF THE CHARACTER CAN PRINT 
(1) 005666 100375 BPL & 21f Ue AN'T, WAIT UNTIL WE CAN 

(1) 5670 017777 173416 173420 aSTKB,aSTPB sECHO THE CHARACTER BACK 

(1) 005676 005303 DEC R3 sREDUCE THE NUMBER OF CHARACTERS RECEIVED 
(1) 700 001356 1$ 3IF WE DON'T HAVE 7, * * SOME MORE 

(1) 005702 012604 MOV (SP)+,R4 31F WE HAVE 7, RESTORE R 

(1) 005704 012603 MOV (SP)+,R3 3RESTORE R3 

(1) 010 - INSTE: MOV R3,-(SP) sSAVE R3 ON THE STACK 

(1) 005710 010446 MOV R4,-(SP) sSAVE R4& ON THE STACK 

(1) 005712 104402 001356 TYPE UES sPRINT A QUESTION MARK... WHAT'S GOING ON? 
(1) 005716 000741 BR - INSTI 3G0 PRINT THE MESSAGE AGAIN 

(1) 720 INSTR2: MOV (SP)+,R4 sRESTORE R4 

(1) 005722 012603 OV (SP)+,R3 RESTORE R3 

3 005724 000002 RTI 3RETURN TO THE MAIN PROCEDURE 

a sCONVERT ASCII STRING TO OCTAL 

(1) 

(1) 005726 010546 ePARAR: MOV R5,-(SP) sSAVE RS ON THE by 

(1) 005730 010446 MOV R4,-(SP) sSAVE R4 ON THE STACK 

(1) 005732 016605 000004 MOV 4(SP) .R5 3GET THE SETUP INFORMATION POINTER 


SEQ 45 
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(1) 005736 012537 006116 MOV (R5)*,LOLIM sSET THE LOW LIMIT FOR THE INPUT 
(1) 005742 012537 006120 MOV (R5)+,HILIM 3SET THE WIGH LIMIT FOR THE INPUT 
(1) 005746 012537 006122 MOV (R5)+ ,DEVADR sSAVE THE ge Sg WHERE THE RESULT WILL BE STORED 
(1) 005752 112537 006124 MOVB (95)¢,LOBITS sGET THE MASK OF THE INCORRECT BITS 
(1) 005756 112537 006125 MOVB (R5)*, ADRCNT 3GET THE COUNT OF ITEMS TO BE STORED 
(1) 005762 0566 MOV . sPOINT TO WHERE MAIN LINE PROGRAM WILL RESUME 
(1) 005766 005005 PARAM1: CLR R5 s INITIALIZE THE ASCII TO OCTAL RESULT WORD 
(1) 005770 012706 010616 MOV #INBUF ,R4 sPOINT TO THE INPUT BUFFER 
(1) 005774 122714 15 CMPB es #15, (RG) 31S THIS CHARACTER A CARRIAGE —_ 
(1) 001420 BEQ PARERR 31F SO, PRINT THE MESSAGE A 
(1) 006002 121427 000060 18: CMPB (R4) ,#60 31S THIS CHARACTER BE IC RANGE? 
(1) 006006 002415 BLT PARERR sIF SO, GO PRINT THE MESSAGE AGAIN 
(1) 006010 121427 000067 CMPB (R4) ,#67 31S THIS CHARACTER THE NUMERIC RANGE? 
(1) 006014 003012 BGT PARERR sIF SO, GO PRINT THE MESSAGE AGAIN 
(1) 006016 142714 000060 BICB 460. (R4) s ISOLATE THE NUMBER THE CHARACTER REPRESENTS 
(1) 006022 152405 81S8 (R4)+,R5 sCONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 
(1) 006024 122714 000015 CMPB 413, (R4) 31S THE NEXT CHARACTER A CARRIAGE RETURN? 
(1) 006030 001406 BEQ LIMITS s1F SO, GO SEE IF NUMBER IS WITHIN LIMITS 
(1) 006032 006305 ASL RS sCLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 
(1) 006034 006305 ASL R5 sCLEAR POSITION 1, MOVE STRING TO LEFT AGAIN 
(1) 006036 006305 ASL R5 sMOVE THE 3 ONE MORE TIME TO MAKE ROOM FOR 
(1) sNEXT THREE BIT 
(1) 006040 000760 BR 1$ 3G0 GET THE NEXT CHARACTER 
(1) 006042 104404 PARERR: INSTER s THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
A 006044 000750 BR PARAM sTRY GETTING THE PARAMETERS AGAIN 
a3 sTEST TO SEE IF NUMBER IS WITHIN LiMITS 
(1) 
(1) 006046 020537 006120 LIMITS: CMP RS HILIM sDOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
(1) 006052 101373 BHI PARERR sIF YES, GO PRINT THE MESSAGE AGAIN 
(1) 006054 020537 006116 CMP R5,LOLIM 31S THE RESULT LOWER THAN ALLOWED? 
(1) 006060 103770 BLO PARERR 31F YES, GO PRINT THE MESSAGE AGAIN 
(1) 006062 133705 006124 8118 — sARE ANY INCORRECT BITS SET IN THE RESULT? 
a3 006066 001365 BNE PARERR sIF SO, GO PRINT THE MESSAGE AGAIN 
3 sSTORE NUMBER AT SPECIFIED ADDRESS 
(1) 006070 013704 006122 MOV DEVADR ,R4 sPOINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
(1) 006074 010524 18: MOV RS, (RO) sSTORE THE RESULT 
(1) 006076 062705 000002 ADD #2,R5 sCALCULATE THE NEXT DATUM 
(1) 006102 105337 006125 DECB = ADRCNT sREDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 
(1) 006106 001372 BNE 1$ sIF NOT, GO STORE THE NEXT DATUM 
(1) 006110 012604 MOV (SP)+,R4 RESTORE R4 
(1) 006112 012605 MOV (SP)+,R5 sRESTORE RS 
3 006114 000002 RTI sRETURN TO THE MAIN PROGRAM 
(1) 006116 000000 LOLIM: 0 sLOWEST ACCEPTABLE VALUE 
(1) 006120 000000 HILIM: 0 3HIGHEST ACCEPTABLE 
(1) 006122 000000 DEVADR: 0 sLOCATION iy RESULT WILL BE STORED 
(1) 006124 000 LOBITS: .BYTE 0 s INCORRECT BITS MASK 
33 006125 000 ADRCNT: .BYTE 0 sCOUNT OF ITEMS TO BE STORED 
3 sSAVE PC OF TEST THAT FAILED AND RO-RS 
(1) 
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(1) 006126 016637 000004 001404 


010537 
7 


001357 


000012 
000002 
006374 


006376 
177770 
000060 


010660 
006376 


000040 


000012 


COMMUNICATIONS ROUTINE 


eSAVOS: MOV 4(SP) ,SAVPC 
sSAVE RO-RS 

5v05: nov R5,dREGS 
MOV R4, SREGS 
MOV R3,SREG3 
MOV R2,SREG2 
A0V R1,SREG1 
MOV RO, SREGO 
RTI 


sRESTORE RO-RS 
»RESOS: MOV SREGO,RO 
90 


oR 
SREGS RS 
RTI 


sSAVE R7 (PC) 


SAVE RS 


sLEAVE. 


sRESTORE RO 
sRESTORE R1 
sRESTORE R2 
sRESTORE R3 
sRESTORE R4 
sRESTORE RS 
s LEAVE 


sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


eCONVR: TYPE 
eCNVRT: MOV 


1$: MOVB (R1)¢,R5 
MOVB (R1)+,RO 
MOV @(R1)4,R4 
MOVE te ene 


3$: MOV oR3 
BIC *25 
ovs R3,-(SP) 
OR R4 
ASR 4 
ASR R4 
DEC RS 
ANE 
MOV @ADATA,R3 
4$: fOVB (SP)+,(R3)¢ 
DECB CHRCNT 
TSTB8 RO 
BEQ 6$ 
5$: ®OVB #040, (R3)+ 
dDECB RO 


sPRINT A CARRIAGE RETURN 
sSAVE RO 


SAVE R1 
sSAVE R3 
sSAVE R4 
sSAVE RS 


39 THE ADDRESS OF THE ARGUMENTS IN R1 
oe TO WHERE MAIN PROGRAM WILL RESUME 


T NUMBER OF WORDS TO BE PRINTED 


GET THE NUMBER OF CHARACTERS TO - PRINTED 
THE PRINT 


3MAKE AN ASCII 38* OUT OF T 


EMOVE 1 
THIRD TI 


3 AND FINALLY ME 
:REDUCE CHARACTER COUNT.ARE ALL CHARACTERS 


sBUIL 
3IF NO, GO BUILD THE NEXT ONE. 


sNOW POINT TO WHERE NUMBER WILL BE roe FROM 


3STORE THE gg ie STARTING W 

sREDUCE COUNT. 

31F NO, GO TRANSFER ANOTHER 

sane ANY meee TO BE PS eats 
« DON'T SET UP AN 


$ADD A’SPACE 10 THE OUTPUT BUFFER 


sREDUCE THE COUNT. SHOULD WE PRINT MORE? 


CTER 
3 MOVE — 28 BITS INTO PLACE 


WITH THE MOST 
4 et CHARACTERS TRANSFERRED? 


SEQ 47 
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(1) 006342 001374 BNE 58 z21f YES, GO ADD ANOTHER SPACE 

(1) 006344 105013 68: CLRB (R3) TERM INATE THE OUTPUT BUFFER si A ZERO 

(1) 104402 010660 TYPE oMDATA ;PRINT THE STRING WE JUST BUILT 

(1) 006352 005337 006374 DEC WeDCNT sREDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 

(1) 006356 001336 BNE 1$ SIF YES, GO CONVERT THEM 

(1) 006360 012605 MOV (SP)*,R5 RESTORE RS 

(1) 006362 012604 MOV (SP)+,R4 RESTORE RG 

(1) 006364 012603 MOV (SP)+,R3 sRESTORE R3 

(1) 006366 012601 MOV (SP)+,R1 RESTORE R1 

(1) 006370 012600 MOV (SP)+,R0 sRESTORE RO 

(1) 006372 000002 RTI sRETURN TO THE MAIN PROGRAM 

(1) 006374 000000 WROCNT: 0 

(1) 006376 000 CHRCNT: .BYTE SNUMBER OF CHARACTERS TO PRINT 

a 006377 000 SPACNT: .BYTE 0 SNUMBER OF SPACES TO PRINT 

3 006400 000000 BINWRD: 0 

(1) 

(1) sae DISPATCH SERVICE 

(1) pe a oe OF TRAP IS EXTRACTED 

(1) AND USED AS OFFSET TO OBTAIN POINTER 

96 —9* SELECTED SUBROUTINE 

(1) 006402 010046 -TRPSR: MOV RO,-(SP) sSAVE RO. yoo ate TO FIND TRAP ROUTINE 

(1) 006404 016600 000002 MOV 2(SP),RO 3GET TRAP ADDRESS 

(1) 006410 005740 TST =(RO) 3GET ™m 

(1) 006412 111000 MOVB (RO) RO GET RIGHT BYTE OF TRAPC(TRAP OFFSET) 

(1) 006414 006300 ASL RO POSITION OFFSET FOR TABLE INDEXING 

(1) 006616 016000 001742 MOV -TRPTAB(RO),RO ;PLACE INDEXED ADDRESS OF TABLE IN RO 

33 006422 000200 RTS RO s TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 

(1) sDEVICE CLEAR ROUTINE 

3 sISSUE A DEVICE CLEAR 

(1) 006424 DEVICE. CLR: 

(1) 006424 052777 000020 173356 BIS #OCLR,@DZVCSR  ;SET OCLR 

(1) 0066432 032777 000020 173350 1$: BIT #OCLR,@0ZVCSR ;DID IT CLEAR? 

(1) 006440 001374 BNE 18 sBR IF NO 

hi 006442 000002 RTI sEXIT ROUTINE 

3 sROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 

(1) 006644 104413 -DCLASM: bevice.cLR s ISSUE A DEVICE CLEAR 

(1) 006446 153777 001424 173334 81S8 ANTFLG,@DZ2VCSR ;LOAD THE MAINTENANCE BIT IF IT IS I MODE 

3 006454 000002 RTI sRETURN TO CALLING ROUTINE 

(1) 006456 -DELAY: 

(1) 006456 010046 OV RO,-(SP) SAVE RO 

(1) 006460 013700 006474 MOV DLYCNT,RO 3SET COUNT 

(1) 006464 005300 18: DEC RO DELAY 

(1) 0064666 001376 BNE 1$ 3 

(1) 006470 012600 MOV (SP)+,RO SRESTORE RO 

(1) 006472 000002 RTI LEAVE ROUTINE 

3 006474 000001 DLYCNT: .WORD 1 sPATCHABLE LOC FOR MORE TIME 

(1) ADVANCE TO NEXT TEST HANDLER 
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CVDZAD.P11 T1-MAR=83 10:06 APT COMMUNICATIONS ROUTINE 
006476 013716 001362 eADVANCE:MOV = ss NEXT, (SP) sCRUNCH STACK WITH ADDRESS OF SCOPE CALL 
006502 005037 001364 CLR LOCK sRESET TIGHT LOOP ADDRESS 
006506 000002 RTI CHECK TO SEE IF OLD TEST GETS REPEATED 


sROUTINE TO SHIFT LINE POINTER 
sAND SWITCH TESTS IF NECESSARY 


006510 106302 SHIFT: ASLB R2 sPOINT TO THE NEXT LINE 

006512 032702 000020 BIT #B1T4,R2 sHAVE WE PASSED ALL un POINTERS? 
006516 001402 BEQ 1$ s1F NOT, RETURN TO THE TEST 

006520 022626 POP2SP 3REMOVE THE —7 a FROM THE STACK 
006522 104400 ADVANCE 360 TO THE NEXT TEST 

006524 000002 1$: RTI sRETURN TO THE PRESENT TEST 





— ee — ee 
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83 LINE PARAMETER REGISTER SETUP ROUTINE 
(1) 006526 010146 -LPRSET :MOV R1,<(SP) ;SAVE CONTENTS OF R1 
(1) 006530 010246 MOV R?.=(SP) SSAVE CONTENTS OF R2 
(1) 006532 013701 001370 MOV PAR, 21 MOVE DEFAULT PARAM. INTO R1 
(1) 006536 012702 000001 MOV 1.82 jim. FOR LINE 1 
(1) 006542 010177 173252 1$: MOV Ri .adz LOAD PARAM, REGISTER 
(1) 006546 005201 N R1 SSET R1 FOR NEXT LINE 
(1) 006550 106302 ASLB sR 3SET R2 FOR NEXT LINE 
(1) 006552 032702 000020 BIT #B1T4,R2 SALL LINES DONE? 
(1) 006556 001771 BEQ 18 SIF NO LOAD NEXT LINE 
(1) 006560 012602 MOV (SP)+,R2 SRELOAD R2 
(1) 006562 012601 MOV (SP)+-R1 RELOAD R1 
a 006564 000002 RTI RETURN 
9 ;ROUTINE TO ZERO DATA BUFFER 
(1) 006566 010046 .BUF SET :MOV RO,<(SP) : SAVE CONTENTS OF RO 
(1) 006570 012700 001426 MOV #700,R0 RO TO TOP OF BUFFER 
(1) 006574 005020 1$: CLR (RO)¢ cee EAR BUFFER LOCATION 
(1) 006576 022700 001446 CMP =—s@STOP,RO 31S BUFFER ALL CLEARED 
(1) 006602 001374 BNE 18 31F NOT CLEAR NEXT LOCATION 
(1) 006604 012600 MOV (SP)+,RO SRELOAD RO 
9 006606 000002 RTI RETURN 
) 
‘¢} WRAAAL ALLA LE LILES ILI I IIIT TIT ITT tii iiiiiiititititiffy 
(2) ~SBTTL ABORT ROUTINE FOR LCP/ORION UFD MODE 
(3) PP ibehehbii Add hhh bh hhh heehee Pete TTT iii iit itiiititity 
(2) 
(2) 000040 UFD=BITS 
(2) 006610 032737 000040 000052 ABORT: BIT #urD,52 STEST FOR USER FRIENDLY MODE 
3 006616 001420 BEQ ABORT2 31F NOT UFD THEN CONTINUE NORMAL OPERATION 
(2) 
(2) 006620 013737 002152 000030 MOV SAV30, 30 ;RESTORE EMT LOCATION (30) 
(2) 006626 013737 002154 000032 MOV SAV32,32 SRESTORE EMT PRIORITY LOCATION (32) 
(2) 006634 104042 EMT $42 3GET DCA LOCATION INTO RO FROM MONITOR 
(2) 006636 012760 177777 000062 MOV ss #1, 42 (ROD 3SET A =1 INTO LOCATION DRSERR IN MONITOR 
(2) 006644 013700 000062 ABORT1: MOV 42, RO SAND PUT THE MONITOR RETURN ADDRESS IN RO 
(2) 006650 005037 000042 CLR «42 SCLEAR MONITOR RETURN FLAG 
(2) 006654 000137 004416 JMP äendad ;RETURN TO MONITOR-DO NOT PUSH STACK HERE 
(2) 006660 000207 ABORT2: RTS PC 31F NOTUFD RETURN TO MAINLINE 
8 —EXVVXVVXVIR&œOIOOOCCOEOVVCORGCOA 
a) 
9 ZERROR HANDLER 
1) : 
(1) 006662 004737 006610 SERROR: JSR —s- PC, ABORT SCHECK IF WE ARE UNDER UFD 
(1) 006666 0046737 007320 JSR pC. «SERV. 6, FIND OUT IF <*G> WAS HIT 
(1) 006672 032777 010000 172406 BIT W12,aSuR SBELL ON ERROR? 
(1) 006700 001406 BEQ —* BR IF NO BELL 
(1) 006702 105777 172406 TSTB = aS TPS TTY READY. 
(1) 006706 100003 BPL BX [DON'T WAIT IF TTY NOT READY. 


; 
be — — — — 
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CVDZAD.P11- 11-MAR-B3 10:06 T ROUTINE FOR LCP/ORION UFD MODE 
(1) 006710 112777 000207 172400 MOVE #207, aSTPB ;PUSH A BELL AT THE TTy. 
(1) 006716 032777 020000 172360 xex: BIT suis, asuR SDELETE ERROR PRINT OUT? 
(1) 006724 001113 BNE sR IF NO PRINT OUT WANTED. 
(1) 006726 021637 001262 CMP (eb) SERRPC SWAS THIS ERROR FOUND LAST TIME? 
(1) 006732 001404 BEO 1$ SBR IF YES 
(1) 006734 011637 001262 MOV (SP) ,SERRPC RECORD BEING HERE 
(1) 006740 105037 001247 CLRB ss SERFLG SPREPARE HEADER 
(1) 006744 104407 1$: SAVOS SSAVE ALL PROC REGISTERS 
(1) 006746 011605 MOV (SP) RS GET THE PC OF ERROR 
(1) 006750 162705 000002 SUB #2,R5 3GET ADDRESS OF TRAP CALL 
(1) 006754 011504 MOV (RS) RG :GET ERROR INSTRUCTION 
(1) 006756 110437 001260 MOVB RG, SITEMB SCOPY TEST NUMBER FOR APT HANDLING 
(1) 006762 006304 ASL RG SMULT BY TWO 
(1) 006764 061504 ADD (RS) RG :DOUBLE IT 
(1) 006766 006304 ASL RG sMULT AGAIN 
(1) 006770 042706 177001 BIC #177001,R4 [CLEAR J 
(1) 006774 062704 016302 ADD #.ERRTAB,RG GET POINTER 
(1) 007000 012437 007124 MOV (R4)+,ERRMSG § GET ERROR MESSAGE 
(1) 007004 012437 007136 MOV (R4)*,DATAHD GET DATA HEADRER 
(1) 007010 011437 007150 MOV (R4) ,DATABP GET DATA TABLE 
(1) 007014 105737 001247 TSTB —- SERFLG STYPE HEADER 
(1) 007020 001403 BEQ TYPMSG BR IF YES 
(1) 007022 005737 007150 TST DATABP SDOES DATA TABLE EXIST? 
(1) 007026 001046 BNE TYPDAT BR IF YES. 
(1) 007030 104402 001357 TYPMSG: TYPE oSCRLF sTYPE A CARRIAGE RETURN 
(1) 007034 104402 001357 TYPE  SCRLF AND TYPE ANOTHER 
(1) 007040 005737 001364 TST Lock 
(1) 007044 001402 BEQ 1$ 
(1) 007046 104402 010233 TYPE  ,MASTEK 
(1) 007052 1046402 010221 1$: TYPE  [MTSTN 
(1) 007056 104412 007312 CNVRT ;XTSTN :SHOW IT 
(1) 007062 104402 010313 TYPE §  MERRPC TYPE PC. 
(1) 007066 104412 007304 CNVRT ,ERTABO 3SHOW IT 
(1) 007072 1046402 010163 TYPE  <MCSRX 
(1) 007076 106412 004432 CNVRT <XCSR 
(1) 007102 104402 001357 TYPE  ,SCRLF GIVE A CR/LF 
(1) 007106 112737 177777 001247 MOVB = #1, SERFLG 3NO MORE HEADER UNLESS NO DATA TABLE. 
(1) 007114 005737 007124 TST ERRMSG 31S THERE AN ERROR MESSAGE? 
(1) 007120 001402 BEQ WTBS.FM BR IF NO. 
(1) 007122 1046402 TYPE TYPE 
(1) 007124 000000 ERRMSG: 0 : ERROR MESSAGE 
(1) 007126 UTBS.FM: ; 
(1) 007126 005737 007136 TST DATAHD SDATA HEADER? 
(1) 007132 001402 BEQ TYPDAT BR IF NO 
(1) 007134 1046402 TYPE TYPE 
(1) 007136 000000 DATAHD: 0 : DATA HEADER 
(1) 007140 005737 007150 TYPDAT: TST DATABP [DATA TABLE? 
(1) 007144 001402 BEQ RESREG BR IF NO. 
(1) 007146 104411 CONVRT SHOW 
(1) 007150 000000 DATABP: 0 DATA TABLE 
(1) 007152 104410 RESREG: RESOS SRESTORE PROC REGISTERS 
(1) 007154 122737 000001 001140 HALTS: CMPB  #APTENV,SENV :1S APT RUNNING? 
(1) 007162 001007 BNE 15$ 3SKIP APT CALL IF NOT 
(1) 007164 113737 001260 007176 MOVB = SITEMB, S$ :COPY ERR 
(1) 007172 004737 005352 JSR PC, SATY4 SCALL APT SERVICE 
(1) 007176 000000 5$: “WORD 0 SERROR NUMBER STUCK HERE 


— — — — ————— . 
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(1) 007200 000777 108: BR 108 sLOCK UP HERE 

(1) 007202 022737 004416 000042 15$: CMP #SENDAD 0842 SCHECK TO SEE IF IN ACT=11 MODE 

(1) 007210 001403 BEQ 208 31F SO, HANDLE ACCORDINGLY 

(1) 007212 005777 172066 TST asuR 3HALT ON ERROR? 

(1) 007216 100006 BPL EXIIER 38R IF NO HALT ON ERROR 

(1) 007220 016677 000002 172060 20S: MOV 2(SP) ,@DISPLAY ;SHOW ERROR PC IN DATA DISPLAY 

(1) 007226 004737 006610 JSR PC ABORT sARE_WE UNDER UFD ? 

(1) 007232 000000 HALT sHALT 

(1) 007234 005237 001256 EXITER: INC + gh UPDATE ERROR COUNT 

(1) 007240 004737 007320 JSR C,SERV.G FIND OUT IF *G WAS TYPED 

(1) 0072464 032777 000400 1720352 BIT #008, @SWR 3G0TO TOP OF TEST? 

(1) 007252 001007 BNE it sBR IF YES 

(1) 7254 032777 002000 172022 BIT #SW10,aSuR ;GOTO NEXT TEST? 

(1) 007262 001407 BEQ 8 3BR IF NO 

(1) 007264 013737 001362 001252 MOV NEXT, SLPADR 3SET FOR NEXT TEST 

(1) 007272 012706 001120 1$: MOV #STACK,SP sRESET SP 

(1) 007276 000177 171750 JMP @SLPADR GOTO SPECIFIED TEST 

(1) 007302 000002 2s: RTI 3RETURN 

(1) 007304 000001 ERTABO: 1 

(1) 007306 006 002 BYTE 6,2 

(1) 007310 001404 SAVPC 

(1) 007312 000001 XTSTN: 1 

(1) 007314 002 002 BYTE 2,2 

(1) 007316 001246 STSTNM 

(1) 007320 017746 171766 SERV.G: MOV aSTKB,-(SP) sOTHERWISE, GET THE LAST CHARACTER TYPED 

(1) 007324 042716 000200 BIC #8117, (SP) sSTRIP PARITY(EIGHTH) BIT 

(1) 007330 122726 000007 CMPB 47. (SP) + 31S IT *G? 

(1) 007334 001076 BNE 6$ 31F NOT, IGNORE INPUT 

(1) 007336 032777 004000 171744 BiT #4000 ,aSTKS 3RX BUSY? 

(1) 007344 001365 BNE SERV.G 38R IF YES 

(1) 007346 GETSWR= . 33GPA 

(1) 007346 017737 171732 007554 MOV @SUR 90S sSAVE (SUR). 

(1) 007354 104402 007534 18: TYPE 898 TYPE HEADER FOR OLD SWITCH REGISTER 

(1) 007360 104412 007546 CNVRT ,88$ sTYPE THE NUMBER IT 

(1) 007364 104402 007556 TYPE 2918 3AFTER HAVING oy Hy IT TO ASCII 

(1) 007370 105037 007562 CLRB 228 sCLEAR SWR CHANGE FLAG 

(1) 007374 005077 171704 CLR aSwR :CLEAR THE SOFTWARE SWITCH REGISTER 

(1) 007400 105777 171704 3$: TSTB = @STKS sWAIT FOR DONE. 

(1) 007404 100375 BPL 3$ CONTINUE WAITING FOR IT 

(1) 007406 017746 171700 MOV aSTKB,-(SP) sPUT THE eae hp ON THE STACK 

(1) 007412 042716 000200 BIC #8117, (SP) :STRIP PARITY BIT 

(1) 007416 122726 000015 CMPB 413, (SP)+ 31S IT THE a RETURN CHAR? 

(1) 007422 001433 BEQ &$ 3IF * GO PRINT CRLF 

(1) 007424 105777 171664 2s: TSTB = @STPS 31S THE ts oat oye gy 

(1) 007430 100375 BPL 2s sIF NOT, WAIT FOR IT TO BE READ 

(1) 007432 105237 007562 INCB = «928 sINDICATE THAT THE SWR WAS CHANGED 

(1) 007436 014677 171654 . MOV -(SP) ,aSTPB PLACE THE CHARACTER THERE (ECHO BACK) 

(1) 007442 000241 CLC GET READY TO ROTAT 

(1) 007444 006177 171634 ROL asuR sMOVE THE EXISTING 31 OVER 

(1) 007450 006177 171630 ROL aSuR FOR 

(1) 007454 006177 171624 ROL QSUR $ THREE BITS FROM THIS CHARACTER 

(1) 007460 103735 BCS 1$ sERR 

(1) 007462 022627 000060 CMP (SP)+,#60 31S IT LOWER THAN 0? 

(1) 007466 002732 BLT 1$ s1F SO, GO ASK AGAI 

(1) 007470 026627 177776 000067 CMP =2(SP) #67 31S IT HIGHER THAN 7? 

(1) 007476 003326 BGT 1$ zuf SO, GO ASK AGAIN 


— — — — — — 
— eee eet — — — — — — — — — ——— —— ———— 


i 
— — — — 


SEQ 53 
CVDZA“D MACY11 30(1046) 11-MAR-83 10:13 244 10-36 
CVDZAD.P11 T1-MAR=83 10:06 T ROUTINE FOR LCP/ORION UFD MODE 
(1) 007500 042746 177770 BIC #*C<7>,<(SP) s ISOLATE INFORMATION BITS 
(1) 007504 052677 171574 BIS (SP)+,aSuR sADD THEM TO THE SWITCH REGISTER 
(1) 007510 000733 BR 3$ :GO CHECK FOR THE NEXT CHARACTER 
(1) 007512 105737 007562 4$: TSTB 28 3HAS THE SWR BEEN CHANGED? 
(1) 007516 001003 BNE 5$ 31F YES GO TYPE CRLF 
(1) 007520 013777 007554 171556 MOV 90S ,aSuR sIF NOT RESTORE SWR 
(1) 007526 104402 001357 5$: TYPE » SCRLF s TYPE A CARRIAGE RETURN AND LINE FEED 
3 007532 000207 6$: RTS PC sRETURN TO CALLING PROCEDURE 
(1) 007534 020200 051450 051127 89$: eASCIZ <200>? (SWR)=/? 
(1) 007542 036451 000057 
(1) -EVEN 
(1) 007546 000001 88$: 1 
(1) 007550 006 000 BYTE 6,0 
(1) 007552 007554 90$ 
(1) 007554 000000 90$: “WORD 0 
(1) 007556 036457 000057 91$: eASCIZ = 2/2/72 
(1) 007562 000 928: BYTE 0 
(1) 007564 eEVEN 
5 ~SBTTL POWER DOWN AND UP ROUTINES 
(3) —AXYVVEVEVVVOVODOCOOS 
(2) :POWER DOWN ROUTINE 
(2) 007564 012737 007730 000024 SPWRDN: MOV #SILLUP ,Q#PWRVEC ; i: FOR FAST UP 
(2) 007572 012737 000340 000026 MOV #340 ,aePWRVEC+2 ;;PRIO:7 
(4) 007600 010046 MOV RO,-(SP) i EpusH RO ON STACK 
(4) 007602 010146 MOV R1,-(SP) 33PUSH R1 UN STACK 
(4) 007604 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 
(4) 007606 010346 MOV R3,-(SP) 33PUSH R3 ON STACK 
(4) 007610 010446 MOV R4,-(SP) 33PUSH R4 ON STACK 
(4) 007612 010546 MOV R5,-(SP) 33PUSH RS ON STACK 
(4) 007614 017746 171464 MOV asur,-(SP) —* @SWR ON STACK 
(2) 007620 010637 007734 MOV SP, SSAVR6 33SAVE SP 
(2) 007624 012737 007636 000024 MOV #SPURUP ,asPURVEC pst UP VECTOR 
(2) 007632 000000 HALT 
8 007634 000776 BR 72 33HANG UP 
(3) —EEIXXVVVXVVVXVUMWVVVVVCO 
(2) sPOWER UP ROUTINE 
(2) 007636 012737 007730 000024 SPwRUP: MOV #SILLUP ,a#PURVEC 33SET FOR FAST DOWN 
(2) 007644 013706 007734 MOV SSAVR6, SP 33GET SP 
(2) 007650 005037 007734 CLR SSAVR 33WAIT . FOR THE TTY 
(2) 007654 005237 007734 1$: INC SSAVR6 ssWAIT FOR THE INC 
(2) 007660 0013575 BNE 1$ 330F WORD 
(4) 007662 012677 171416 MOV (SP) ,a@SuR 33POP STACK INTO @SUR 
(4) 007 012605 MOV (SP)+,R5 23POP STACK INTO RS 
(4) 12604 MOV (SP)+,R4 33POP STACK INTO R4 
(4) 007672 012603 MOV (SP)+,R3 33POP STACK INTO R3 
(4) 007674 012602 MOV (SP)+,R2 33POP STACK INTO R2 
(4) 007676 012601 MOV (SP)+,R1 33POP STACK INTO R1 
(4) 012600 MOV (SP)+,RO 33POP STACK INTO RO 
(2) 007702 012737 007564 000024 MOV #SPURDN Q*PWRVEC ;;SET UP THE POWER DOWN VECTOR 
(2) 007710 012737 000340 000026 MOV #340 ,Q#PURVEC+2 ;;PRIO:7 
(2) 007716 104402 TYPE ssREPORT THE POWER FAILURE 
(2) 007720 007736 SPWRMG: .WORD MPFAIL 23POWER FAIL —339 POINTER 
(2) 007722 012716 MOV (PC +. (SP) ssRESTART AT RESTAR 


' 
——— --- — - 
— — — — ——— — — — nr — — — — — — — 








CVDZA=D MACY11 3061046) 11-MAR-83 10:13 PAGE 10-37 
Cc 0:06 POWER 


VDZAD.P11 11-MAR-83 1 


(2) 007724 011266 SPWRAD: .WORD 
(2) 007726 000002 RTI 
(2) 007730 000000 SILLUP: HALT 
(2) 007732 000776 BR 

(2) 007734 000000 SSAVR6: 0 

(2) 007736 050200 051127 043060 MPFAIL: .ASCIZ 
(2) 010001 200 047105 020104 MEPASS: .ASCIZ 
(2) 010025 200 052522 047116 : eASCIZ 
(2) 010041 200 051120 043517 MERR2: .ASCIZ 
(2) 010110 044600 051516 063125 MERR3: .ASCIZ 
(2) 010134 046200 041517 020113 MLOCK: .ASCIZ 
(2) 010163 103 051123 020072 MCSRX: .ASCIZ 
(2) 010171 126 061505 020072 MVECX: .ASCIZ 
(2) 010177 120 051501 042523 MPASSX: .ASCIZ 
(2) 010210 051105 047522 051522 MERRX: .ASCIZ 
(2) 010221 126 051505 020124 MTSTN: .ASCIZ 
(2) 010233 052 0 MASTEK: .ASCIZ 
(2) 010236 052200 050131 020105 W: .ASCIZ 
(2) 010313 120 035103 000040 MERRPC: .ASCIZ 
(2) 010320 046600 050101 047440 XHEAD: .ASCIZ 
8 010346 044600 046114 043505 oy eASCIZ 
(2) 010410 000002 XSTATQ: 2 

(2) 010412 006 003 -BYTE 
(2) 010414 001344 STMP1 
(2) 010416 006 002 -BYTE 
(2) 010420 001346 STMP2 


(1) EVEN 


DOWN AND UP ROUTINES 


RESTART 3sRESTART ADDRESS 
33 THE POWER UP SEQUENCE WAS STARTED 
272 33 BEFORE THE POWER DOWN WAS COMPLETE 


sPUT THE SP HERE 
<200>/PUR FAILED.” RESTART AT LAST TEST / 
ect ol to CVDZA-D / 
<200>/RUNNING / 
<500>/PROGLAN at gers F DEVICES PRESENT./ 
<200>/ INSUFFICIENT DATA 
8 ON SELECTED ieSt/ 


. 
_ A BIT MAP OF DZV11°S DESIRED ACTIVE: / 
<200>/MAP OF DZV11 STATUS/<200> 

<200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 

6.3 

6.2 


SEQ 54 


— — — — — — — — — — — — 
- — — — 
— — — — —— — —— — — — — — — 


010540 


000040 
000105 
010534 
001424 
000111 


010536 
000010 


000123 


010540 
001424 
000002 


010616 


010616 


010616 


001424 
010616 


.SETFLG:MOV 


4$: 


5$: 


d 5 
s THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 


TESEXTERNAL LOOP BACK 
3 T=INTERNAL LOOP BACK 
ae LOOP BACK 
@(SP) RS UP ADDRESS OF TAG 
LOWER CASE 
EXTERNAL LOOP BACK ? 


BIC #40, INBUF 
CMPB es #°E., iNBUF 
BNE $ 


& 
MOV 1$,(R5) 


PICK 
;STRIP 
¢1S IT 


YES STORE INFO 
CLRB ANTFLG sSET MAINT BIT =0 
BR 7$ GET OUT 
— 3— 4 IT INTERNAL LOOP BACK ? 
MOV 28, (R5) VES STORE INF 
a @MAINT,MNTFLG SET 


+3 MAINTENANCE FLAG LOADER 
31S 1T STAGGERED LOOP BACK ? 
sWHAT ? 


BNE 6$ 
MOV 3$,(R5) :YES en INFO 
CLRB MNTFLG 3ZERO BIT 
AD #2, (SP) 3POP 
RTI 
INSTER sRETRY 

» SETFLG sD1TTO 
WORD 200 sEXTERNAL = E 
WORD 0 s INTERNAL = I 
WORD 100000 STAGGERED = S$ 


SEQ 55 


' 
— — —— — — — — — — — — — —— — — — 
— — — 
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CVDZAD.P11 11-MAR-83 1 


000000 
010660 


000000 
010722 


000000 
000040 010616 
000105 010616 


000103 010616 
177777 
000002 


11-MAR-83 10:13 PAGE 10-39 
10:06 POWER 





DOWN AND UP ROUTINES 


sCOMPARE THE FIRST CHARACTER IN ay! —— INPUT 
sBUFFER TO THE CHARACTERS “'E’* 

s1F THE CHARACTER IS ‘'E’’ CLEAR MIME FLAG 

sIF THE CMARACTER IS “et SET THE FLAG 


-PAWCH: MOV a(SP).RS 
BICB ~ #40, INBUF SET FOR LOWER CASE INPUT 
CMPB #°E, INBUF sis tv °S" ? 
BNE 1$ 
CLRB (RS) 3000 
80 28 
18: CMPB #°C, INBUF 338 iv “Ss” 7 
BNE 8 
Novs #-1, (R5) 33177 
2s: ADD #2, (SP) 
RTI 
3$: INSTER RETRY 
BR -PAWCH 
sBUFFERS FOR INPUT-OUTPUT 
INBUF: 0 
2. 40 
3: TEMP: 0 ; TEMP AREA UNUSED. 33GPA 
3 om. 3; DELETED TO CONSERVE SPACE 33GPA 





SEQ 56 





VDZAD.P11 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 010722 
(2) 010726 
(2) 010730 
(2) 010734 
(2) 010740 
(2) 010742 
(2) 010746 
(2) 010752 
(2) 07 
(2) 010762 
(2) 010766 
(2) 010772 
(2) 011000 
(2) 011006 
(2) 011010 
(2) 011016 
(2) 011020 
(2) 011024 
(2) 011030 
(2) 011034 
(2) 011042 
(2) 

(2) 011050 
(2) 011052 
(2) 011060 
(2) 011064 
(2) 011070 
(2) 011074 
(2) 011100 
(2) 011104 
(2) 011110 
(2) 011114 
(2) 011116 
(2) 011126 
(2) 011130 
(2) 011134 
(2) 011136 
(2) 011144 
(2) 011146 
(3) 011152 
(3) 011154 
(3) 011156 
(3) 011160 
(3) 011162 
(3) 011164 
(3) 011166 
(3) 011167 


CVDZA-D MACY11 30(1046) 
C 11-MAR-83 1 


001354 
001406 


001420 
001420 


001420 


001420 
001420 


001420 


001424 


170140 


CYCLE: 


18: 


2s: 


3$: 


4$: 


T1-MAR-83 10:13 Seen t 10-40 
0:06 


DOWN AND UP ROUTINES 


TROUT INE USED TO ‘CYCLE’ THROUGH UP TO SIXTEEN DZV11°S 

to ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
AND RUNS Tne SPECIFIED DZ2V11°S. THIS ROUTINE *MuUSTe 

BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

sSETUP NECESSARY. 


DZVACTV 

1$ 

oMERR2 

PC ABORT 

22 

SMXCNT STIMES 
RUN ,DZVACTV 

2s 

RUN 

#12, ACTIVE 
anne 
+ wegen cst 


#07V.END, ACTIVE 


3$ 
#0ZV.MAP ACTIVE 
+, SBASE 


(RO) +, MODE SET 
MNTFLG ;RESET nAINT. FLAG IF 
MODE 3 RUNNING TE 


9S 

SMAINT ,ANTFLG 
PC .OZVLEV 
are 


78 
seul Ae 
oSCRLF 


2 


3 ARE ANY DZV11°S TO BE TESTED? 


:NO Dzvii's eee 
ARE . UNDER UFD ? 
iSTOP T HE SHOW. 
sDISQUALIFY CONT. SW. 
sRESTORE THE NUMBER OF ITERATIONS TO MAKE 
31S THIS ONE "ACTIVE 
F GOOD ONE r 


sBR I 

sUPDATE POINTER 
sCATCH CARRY FROM RUN 
[UPDATE ADDRESS POINTER. 
HAVE WE PASSED THE END OF THE MAP? 

31F NO, KEEP GOING; NOT ALL TESTED FOR. 
RESET ADDRESS POINTER. 

KEEP LOOKING _ ACTIVE DZv11 


CAR 
GET ADDRESS “POINTER. 


ZUPDATE. 


sALL DONE? 


sBR IF NO. 

sRESTORE POINTER. 

3LOAD yee CTRL. REG 

sLOAD VECTOR 

3SET UP DZV LINES ACTIVE 

3SeT UP PARAMETERIZATION 
UP MAINTENANCE MODE 


STS 

; IN 
INTERNAL MAINT. MODE 
3SET UP 


sARE WE UNDER MONITOR CONTROL? 
IF YES, SKIP THIS SETUP 

31F SWOi=1, GET STARTING TEST # 
:8R IF NO TEST 1S TO BE INPUTTED 


sch THE STRING INPUT rr 

14 oy te TO MESSAGE TO BE PRINTED 

;CALL THE OCTAL TO ASCII CONVERT ROUTINE 
SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
POINTER TO MAP LOCATION TO BE FILLED 

MASK OF INVALID BITS FOR THIS PARAMETER 
sNUMBER OF PARAMETERS TO STORE 


SEQ 57 





CVDZA-D MACY11 30(1046) 


Cvb 11-MAR-83 1 


ZAD.P11 


011322 


011326 


000 

012737 
000177 
013700 
062700 
010037 
062700 


012272 
000004 


012737 
001246 
001252 
001357 
015750 
001356 
012272 
167760 


002040 
000002 
002042 
000002 
002044 
000002 
002046 
001174 
002010 
002012 
002014 
002020 


002016 
002022 
002024 
002026 


002030 
002034 


002032 
002036 


000002 
000004 


001252 


001252 


11-MAR-83 10:13 By. 10-41 
0:06 


DOWN AND UP ROUTINES 


—F THE TEST ? 
. DON'T PROCESS NUMBER 


pe 
OVER PREVIOUS SCOPE 


I$ 
;1F NO 
SAV E 
; POP 


sPREPARE TEST ADDRESS 


: 60 START TESTING. ***WARNING! eeee 
sTHIS JUMP IS USED BY POWER UP ROUTINE!!!! 


sPLACE THE BASE VECTOR ADDRESS IN RO 

tt ee BA. RECEIVER INTERRUPT STATUS ADDR. 
sCALCULATE THE TRANSMITTER INTERRUPT VECTOR 
sSTORE IT HERE 

sCALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 
STORE IT HERE 


sTHIS Bp UP POINTERS FOR THE GIVEN DZV11. SBASE IS THE BASE ADDRESS 


sCOPY THE ADDRESS BEING LOADED 
3XXx0 


3Xxx1 


3 xxxꝑ 
3 xxxꝑ 


z3uxx3— 
3xxx3 


: xxx⸗ 
zxxx5 


: Xxx6 
xx6 


: xxx7 
: XXX7 


mov #TST1,R0 
S$: CMP #4, (RO) 
BNE 
CMP #12737,2(R0) 
BNE $ 
CMP STSTNM,4(RO) 
BNE 6$ 
MOV RO, SLPADR 
ADD #2, SLPADR 
TYPE SCRLF 
BR $ 
6$: TST (RO)+ 
CMP RO, #TLAST+10 
BNE 5$ 
TYPE  ,$QUES 
BR és 
3 MOV #TST1,SLPADR 
RESTART: JMP @SLPADR 
sTHIS UTILITY SETS UP CSR°S,SETS UP VECTORS. 
DZVLEV: MOV DzVRIV, RO 
ADD AR 
MOV no. DZvRIS 
ADD 
MOV m0. — 
ADD 
MOV 3: — 
TOF THE DE 
MOV SBASE RO 
MOV RO,DZVCSR 
INC RO 
MOV RO,HDZVCSR 
INC RO 
MOV RO, DZVRBUF 
MOV RO,DZVLPR 
INC RO 
MOV RO, HDZVRBUF 
MOV RO, HDZVLPR 
INC RO 
nov RO,DZVTCR 
MOV RO,HOZVTCR 
INC RO 
MOV RO,DZVMSR 
MOV RO,DZVTOR 
INC RO 
MOV RO, HOZVMSR 
MOV RO, HOZVTOR 
RTS PC 


SEQ 59 
CVDZA=D MACY11 30(1046) 11-MAR-83 10:13 3 PAGE 10-42 
CVDZAD.P11 —- 11-MAR=83 10:06 DOWN AND UP ROUTINES 
(2) ZCONVERT DECIMAL ASCII STRING TO OCTAL 
(2) 011432 000002 .PARMD: ; DECIMAL PARAMETERS UNUSED. Z2GPA 
(2) “REM & : DELETED TO CONSERVE SPACE... T:GPA 
(2) 3eeeAND REMAIN UNDER 4KW SIZE. T:GPA 
(2) .PARMD: MOV (SP) RS 
(2) MOV (RS)+,68 
(2) MOV (R5)+.7$ 
(2) MOV (R5)+,8$ 
(2) MOVB = (R5) +. 98 
(2) MOVB = (R5) +. 108 
(2) MOV RS, (SP) 
(2) 2s: CLR R5 
(2) MOV @INBUF ,RG 
(2) CMPB «#15, (RG) 
(2) BEQ 3$ 
(2) 1$: CMPB (RG) #0 
(2) BLT 3$ 
(2) CPB s«(RG) ,#"9 
(2) BGT 3$ 
(2) BICB 4s #0, (RA) 
(2) CLR R2 
(2) BISB = (R4)+,R2 
(2) ADD R2,R5 
(2) CMPB «#15, (RG) 
(2) BEQ 4$ 
(2) ASL RS 3x2 
(2) MOV RS.R2 SAVE X2 
(2) ASL RS 2X6 
(2) ASL RS 3x8 
(2) ADD R2.R5  ;TIMES 10 
(2) BR 1$ 
(2) 3$: INSTER 
(2) BR 2s 
(2) sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
(2) 4$: CMP RS,7S 
(2) BHI 3$ 
(2) CMP R5,68 
(2) BLO $ 
(2) B1T8 5545 
(2) BNE 3$ 
2) zSTORE NUMBER AT SPECIFIED ADDRESS 
(2) MOV 8S,R4 
(2) 5$: MOV RS. (RG) 
(2) ADD #2-R5 
(2) DECB «s«108 
(2) BNE 5$ 
(2) RTI 
(2) 6$: 0 
(2) 7$: 0 
(2) 8$: 0 
(2) 9$: BYTE 0 
(2) 10$: BYTE 0 





CVDZA=D MACY11 30(1046) 
CVDZAD.P11 11-MAR-83 1 


(2) 


11-MAR-83 10:13 PAGE 10-43 
0:06 


: POWER DOWN AND UP ROUTINES 
: END OF .PARMD DELETE RANGE 


33GPA 


SEQ 60 


SEQ 61 
ee Ny MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-44 

VOZAD.P11 11-MAR-83 10:06 POWER DOWN AND UP ROUTINES 

(2) s*ROUTINE USED TO SET UP J DIAGNOSTIC VIA APT. 

(2) s*IF BIT? IN THE ENVIRONMENT MODE (SENVM) BYTE IS SET, 

5 3*THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 

(2) 011434 012700 001500 SETAPT: MOV ose ae sPOINT TO THE DEVICE MAP TABLE 

(2) 011440 013701 001174 MOV SBAS 3BUILD DEVICE ADDRESSES IN R1 

(2) 011444 0135702 001170 MOV svectin R2 sBUILD DEVICE VECTORS IN R2 

8 011450 042702 177007 BIC #*C<770>,R2 sSTRIP AWAY OTHER INFORMATION 

(2) 011454 012706 001204 MOV #S00W0,R4 sPOINT TO THE BEGINNING OF DEVICE PARAMETERS 

(2) 011460 0135705 001176 MOV SDEVA,RS sGET THE MAP OF ACTIVE DEVICES 

(2) 011464 105037 001414 CLRB = OZVNUM INITIALIZE NO. OF yey IN SYSTEM 

(2) 011470 005037 001410 CLR SAVACTV sCLEAR THE ACTIVE BIT 

(2) 011474 006005 1$: ROR RS sGET A DEVICE SELECTION 8 BIT 

(2) 011476 103407 BCs 3$ sIF IT IS SELECTED, GO SET UP A 

(2) 001422 BEQ 5$ sI1F NO MORE ARE SELECTED, GET our 0 OF SETUP 

(2) 011502 005724 TST (R4)¢ sPOINT TO NEXT DEVICE DESCRIPTOR 

(2) 011504 062701 000010 2s: ADD #10,R1 sSET UP THE NEXT ADDRESS 

(2) 011510 062702 000010 ADD #10,R2 3SET UP THE NEXT VECTOR GROUP 

(2) 011514 000767 BR 1$ 3GO SEE _ IF MORE DEVICES REMAIN 

(2) 011516 006137 001410 3$: ROL SAVACTV sSET BIT IN ACTIVE DEVICE MAP 

(2) 011522 105237 001414 INCB = DZ VNUM : INCREMENT NO. of ACTIVE DEVICES IN SYSTEM 

(2) 011526 010120 MOV R1,(RO+ 3LOAD DEVICE ADDRESS 

(2) 011530 010220 MOV R2,(RO)+ sLOAD THE VECTOR ADDRESS 

(2) 011532 013720 001200 MOV $CDW1, (RO) sGET THE NUMBER OF LINES IN OPERATION 

(2) 011536 012420 MOV (RG) +, (RO)* sLOAD DEVICE PARAMETERS 

(2) 011540 013720 001202 MOV $CDW2, (RO)+ sLOAD DEFAULT TESTING MODE 

(2) 011544 000757 BR 2s 360 BUILD THE NEXT 5* 

(2) 011546 012710 177777 5$: MOV #-1, (RO) sTERMINATE THE DEVICE MAP 

(2) 011552 012737 001142 001304 MOV #@SSUREG SUR 3SET TO SOFTWARE APT SWITCH REGISTER 

8 011560 000207 RTS PC sRETURN TO PRINT STATUS TABLE 

(2) 

(2) s*ROUTINE USED TO “AUTO SIZE** THE DZV11 

(2) 3*CSR AND VECTOR. 

(2) 3 #NOTE: THE CSR MAY BE ANY en iN THE FLOATING 

(2) 3* ADDRESS RANGE (160000:167770) 

(2) 3 AND THE VECTOR MAY BE anv WHERE IN THE 

8 z20 FLOATING VECTOR RANGE (300:770) 

3* 

(2) 

(2) 011562 AUTO.SIZE: 

(2) 011562 000005 RESET ae A BUS INIT. 

(2) 011564 105337 001422 dDECB INIFLG ore THAT I WAS HERE 

(2) 011570 012702 001500 CSRMAP: MOV #0ZV MAP ,R2 OAD MAP POINTER. 

(2) 011574 012705 001204 MOV #S00U0,R3 SPOINT TO Seed DEVICE DESCRIPTOR WORDS 

(2) 011600 005022 1$: CLR (R2)+ sZERO ENTIRE MAP 

(2) 011602 022702 001740 CMP #0Z2V.END.R2 sALL DONE? 

(2) 011606 001374 BNE 1$ sBR IF NO 

(2) 011610 105037 001414 CLRB = OZ VNUR ;SET OCTAL NUMBER OF DZV11°S TO 0 

(2) 011614 012702 001500 MOV #OZV.MAP,R2 

(2) 011620 012701 160000 MOV At og R1 sSET FOR FIRST ADDRESS TO BE TESTED 

(2) 011624 012737 012074 000004 MOV #6$, sSET FOR NON-EXISTENT DEVICE TIME OUT 

(2) 011632 052711 000040 28: BIS selis, rt) sTRY TO SET MASTER SC 

(2) 011636 052761 000017 000004 81S #17,4(R1) sTRY TO TRANSMIT ON ANY LINE 


(2) 011644 005000 CLR RO sUSE RO AS A COUNTER 





i 
oa — 
— = 
ee 
eee 


SEQ 62 
CVDZA-D MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-45 | 
CVDZAD.P11 11 -MAR-B3 10:06 POWER DOWN AND UP ROUTINES 

(2) 011646 005711 7$: TST (R1) SHAS TRANSMITTER READY COME UP? 

(2) 011650 100403 BMI 8$ s1F $0, GO GET A FINAL CHECK 

(2) 011652 005 DEC RO SREDUCE COUNT. TIME UP? 

(2) 011654 001374 BNE 7¢ 31F NOT, KEEP WAITING 

(2) 011656 000437 BR 3$ SASS "§ NOT A DZV11 

(2) 011660 032761 000017 000004 8s: BIT #17,4(R1) SARE ANY TCR BITS STILL SET? THEY SHOULD BE 

(2) 011666 001433 BEQ 3$ 31F IT°S NOT, ASSUME IT°S NOT A D2V11 

(2) 011670 032711 000040 BIT #B1TS,(R1) 31S MASTER SCAN ENABLE STILL SET? 

(2) 011674 001430 BEQ 3$ zif NOT, ASSUME IT'S NOT A DZV11 

(2) 011676 052711 000020 BIS #20, (R1) SSET DEVICE CLEAR 

(2) 011702 000240 NOP 

(2) 011706 032711 000040 BIT #60, (R1) DID SCANNER CLEAR 

(2) 011710 001022 BNE 3% 31F NOT ASSUME IT IS NOT DZV 

(2) 011712 005061 000004 CLR 4(R1) GET RID OF TCR BITS 

(2) SAT THIS POINT IT IS ASSUMED THAT RI WOLDS A 0zv11 CSR ADDRESS. 

(2) 011716 010122 MOV R1,(R2)+ 3STORE CSR IN CORE TABLE. 

(2) 011720 005722 TST (R2)¢ POP OVER VECTOR STORE AREA 

(2) 011722 012722 000017 MOV #17, (R2)+ 3SET THE DEFAULT LINE SELECTION PARAMETER 

(2) 011726 012712 017470 MOV #17470, (R2) 3SET THE DEFAULT PARAMETERS 

(2) 011732 012223 MOV (R2)+, (R3)¢ SCOPY PARAMETERS INTO ETABLE DESCRIPTOR 

(2) 011734 005022 CLR (R2)¢ 3SET THE DEFAULT MODE OF OPERATION 

(2) 011736 012712 (177777 MOV #-1, (R2) STERMINATE LIST 

(2) 011742 105237 001414 INCB DZ VNUM SUPDATE DEVICE COUNTER 

(2) 011746 122737 000020 001414 CMPB «#20, DZ VNUM ARE MAX. NO. OF DEV FOUND? 

(2) 011756 001405 BEQ 100$ YES DON'T LOOK FOR ANY MORE. 

(2) 011756 062701 000010 3S: ADD #10,R1 SUPDATE CSR POINTER ADDRESS 

(2) 011762 022701 164000 CMP #164000,R1 

(2) 011766 001321 BNE 2$ BR IF MORE ADDRESS TO CHECK. 

(2) 011770 100$: 

(2) 011770 105737 001414 TSTB = DZ VNUM ;WERE ANY DZV11"S FOUND AT ALL? 

(2) 011774 001430 BEQ 5$ 3ERROR AUTO SIZER FOUND NO 0ZV11°S IN THIS SYS. 

(2) 011776 113701 001414 MOVB = OZVNUM,R1 

(2) 012002 012737 000001 001410 MOV #1, SAVACTV SCREATE A BIT MAP OF THE ACTIVE 

(2) 012010 005301 48: DEC R1 SDEVICES IN THE SYSTEM 

(2) 012012 001406 BEO 988 

(2) 012014 000261 SEC 

(2) 012016 006137 001410 ROL SAVACTV 

(2) 012022 000772 BR 4$ 

(2) 012024 013737 001500 001174 98%: mov D2ZCRO, SBASE POINT TO THE ADDRESS 0 oF FIRST DEVICE 

(2) 012032 013737 001510 001202 MOV = MANTO, $CDW2 : INDICATE TO ET ABL E WHA MODE 1S BEING USED 

(2) 012040 012737 000006 000006 998: Mov 86,086 SRESTORE TRAP VECT 

(2) 012066 013737 001410 001176 MOV SAVACTV,SDEVM :SAVE ACTIVE REGISTER 

(2) 012054 000612 BR VECMAP 360 FIND THE VECTOR NOW. 

(2) 012056 104402 010061 5$: TYPE  ,MERR2 SNOTIFY OPR THAT NO DZVi1°S FOUND. 

(2) 012062 005000 CLR RO SAKE DATA DISPLAY ZERO 

(2) 012064 004737 006610 JSR PC,ABORT SARE WE UNDER UFD ? 

(2) 012070 000000 HALT :STOP THE SHOW 

(2) 012072 000776 BR 72 [DISABLE CONT. Sw. 

(2) 012074 012716 011756 68: MOV #38, (SP) SENTERED BY NON-EXISTENT TIME-OUT 

(2) 012100 000002 RTI SRETURN TO MAINSTREAM 

(2) 012102 012737 000200 000022 VECMAP: MOV @MASK 0822 3SET IOT TRAP PRIORITY 

(2) 012110 012737 012226 000020 MOV #4$,0820 SET 10T TRAP VECTOR 

(2) 012116 012702 001500 MOV #02. MAP,R2 SET SOFTWARE POINTER 

(2) 012122 012700 000300 MOV #300,R0 SFLOATING VECTORS START HERE. 

(2) 012126 012701 000302 MOV #302.R1 3PC OF 1OT INSTR. 
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10:06 DOWN AND UP ROUTINES 


000004 


000002 
000010 
000007 
012216 


001502 
004462 


000002 
000002 


001170 
000020 


1$: 


2s: 


3$: 
4$: 


5$: 


R1,(RO)+ ZSTART FILLING VECTOR AREA 
#4, (R1)+ SWITH .42; 10T 
(nb) (R1)¢ sADD 2 TO RO oR1 
#1600 SHAS THE VECTOR AREA BEEN EXCEEDED? 
i$ :BR IF MORE TO FILL 
SAVACTV,RG SSTORE TEMPORARILY 
Ro :BRING OUT A BIT 
5$ :BR IF ALL BONE 
#0 ;ZERO CPU PR 
B11 48175 ,9(R2) ad VST. die AND MAS SCAN 
#17,4(R1) iSeT THE TCR BITS FOR ALL LINES 
ATTEMPT TO FORCE AN INTERRUPT 
RO ;STALL 
92 TIME TO INTERRUPT 
#300,2(R2) END INTERRUPT ASSUME 300 AND FIX DZV11 LATER 
#12,R2 POP SOF TUARE POINTER 
2$ =KEEP GOING 
(SP) 2(R2) 3GET VECTOR ADDRESS 
#10,2(R2 POINT BACK TO THE CORRECT VECTOR 
a7 ota CLEAR 
POP 107 *. OFF STACK 
#3$, (SP) 3SET FOR RETURN 


DZVCO,SVECTI sCOPY VECTOR OF FIRST DEVICE INTO ETABLE 
#.SCOPE,1OTVEC RESTORE THE SCOPE TRAP 
PC sALL DONE WITH “‘AUTO SIZING" 


SEQ 63 


— — — —— 
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012737 000001 001246 
012737 012462 001362 
012737 012450 000004 
012737 000200 6 
012737 012332 001364 
013700 002010 
011001 
240 
pose th 
012737 012354 001364 
013700 002014 
011001 
240 
005010 
240 
012737 012376 001364 
13700 002024 
011001 
240 
005010 
240 
012737 012420 001364 
013700 002030 
011001 
240 
pote th 
012737 000006 000004 
005037 000006 
1044 
011601 
022626 
104001 
104401 
000111 
012737 000002 001246 
012737 012526 001362 
013700 002010 
012710 000020 


012510 005005 


0-47 
DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 


steeeerececeeeereneeeeeee TEST 1] seeceneerenanenereeneeeererere 
s*THIS TEST PROVES THE BUS REPLY RESPONSE 
s*DURING 4 READ OR WRITE TO THE FOLLOWING ADDRESS: 


a DZVLSR, OZVRBUF, DZVTCR, DZVMSR 
32* 
—VXVXVVEVVEVVEXVOVOOOD 
TST1: SCOPE 
MOV #1,STSTNM sLOAD THE NUMBER OF THIS TEST 
MOV #TST2,NEXT sPOINT TO Ly START OF THE NEXT TEST 
MOV #5$,4 3SET TRAP TOR 
MOV —*X z5xi PRIORITY TO — INTERRUPTS) 
MOV #1$,LOCK sSET RETURN IF SWwO9=1 
1$: MOV DZVCSR,RO 3sSET ADDRESS TO TEST. 
MOV (RO) ,R1 sREAD THE ADDRESS 
NOP sWASTE TIME 
CLR (RO) sWRITE THE ADDRESS 
NOP sWASTE TIME 
MOV #2$,LOCK SET RETURN ADDRESS FOR Sw09 
2s: MOV OZVRBUF ,RO 3sSET ADDRESS TO TEST 
—_ (RO) ,R1 sREAD THE ADDRESS 
CLR (RO) SWRITE 9 ADDRESS 
NOP sWASTE TIME 
MOV #3$,LOCK SET RETURN ADDRESS FOR Sw09 
3$: MOV OZVTCR,RO 3sSET ADDRESS TO TEST 
ed (RO) ,R1 sREAD THE aDDRESS 
—* (RO) sWRITE THE ADDRESS 
MOV #4$,LO0CK 3SET RETURN ADDRESS 
4$: MOV OZVMSR,RO 3sSET ADDRESS TO TEST 
ae (RO) ,R1 sREAD FROM ADDRESS 
a (RO) sWRITE THE ADDRESS 
a" #6,4 3SET TRAP CATCHER BACK TO NORMAL 
ADVANCE sSCOPE THIS TEST 
5$: MOV (SP) ,R1 sSAVE PC OF TRAP 
POP2SP 3POP TRAP OFF STACK 
ERROR+ 1 3*NO BUS REPLY RESPONSE. 
SCOP1 3$w09=1? 
JMP (R1) srt 
peeeneceerenceeeceecerece TEST 2 seeenccenneceearenaeenneeenners 
eTHIS TEST PROVES THAT BIT ‘DCLR*’ 
3*CAN BE SET AND THAT IT WILL CLEAR 
;*BY ITSELF 
sre TEST 2 
SLeeeerererereeeeeeeeereeeererereeegeneneeeeeeeagenereneeeeeeenes 
TST2: SCOPE 
MOV #2,STSTNA sLOAD THE NUMBER OF THIS TEST 
MOV #TST3 NEXT POINT TO THE START OF THE NEXT TEST 
MOV DZVCSR,RO 3SET 490 NTER 


MOV #OCLR, (RO) sSET D 
CLR RS 3SET EXPECTED TO 0 


SEQ 64 


' 
— — —— — — —— — — — — 
a — — — — — 
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8746 012512 005003 CLR RS sDUAL LOOP COUNTER 
8747 012514 011004 2s: MOV (RO) ,R4 31S DCLR CLEAR? 
8748 012516 001403 BEQ 3$ z1f VES , GO TO THE NEXT - 
8749 012520 105203 INCB 83 zif NO,COUNT 1 OF 256 TICKS 
8750 012522 001374 BNE 2s SHAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN 
8751 012524 104002 ERROR* 2 s*DCLR FAILED TO CLEAR 
8752 012526 3$: 
8753 seeeneecereeeerereeeeeene TEST 3 eeanenneneeerereearererereeeet 
(1) S*TEST TO VERIFY THAT THE R/W BITS OF THE 
(1) S*DZVCSR REGISTER CAN BE SET. THEN VERIFY THAT 
1) S*THESE BITS CAN BE CLEARED. AND FINALLY, VERIFY 
(1) S*THAT AFTER BEING SET AGAIN THEY CAN BE 
qd) S*CLEARED BY A DEVICE CLEAR". 
(1) S*THE BITS TESTED ARES MAINT, MSENAB, SILOEN, 
1) S*RIE, AND TIE. 
(3) s:* TEST 3 
(6) —xXXXXXXX 
(5) 012526 000004 TST3: SCOPE 
(3) 012530 012737 000003 001246 MOV #3, STSTNM LOAD THE NUMBER OF THIS TEST 
(3) 012536 012737 012704 001362 MOV #TST4 NEXT POINT TO THE START OF THE NEXT TEST 
(1) 012544 013700 002010 MOV DZVCSR,RO iGET BASE ADDRESS 
(1) 012550 012703 012664 MOV #5$,R3 SET R3 TO TOP OF TABLE 
(1) 012554 011305 1$: MOV (R3) RS 3SET BIT 
(1) 012556 012737 012564 001364 MOV #11$,LOCK 3 SETUP FOR TIGHT SCOPE LOOP 
(1) 012564 010510 118: MOV R5, (RO) 3sSET BIT IN DEVICE 
(1) 012566 011004 MOV (RO) RG sREAD THE BIT FROM DEVICE 
(1) 012570 020504 CMP R5,R4 sWAS BIT S&T? 
(1) 012572 001401 BEQ 2s sBR IF YES 
(1) 012574 104002 ERROR+ 2 S*BIT R/W FAIL LURE 
(1) 012576 104401 2s: SCOP1 31S SWITCH 9 SET? 
(1) 012600 012737 012606 001364 MOV #12$,LOCK 3SET FOR NEXT TIGHT SCOPE LOOP 
(1) 012606 040510 128: BIC R5, (RO) SCLEAR THE BIT. 
(1) 012610 011004 MOV (RO), RG sREAD DEVIC 
(1) 012612 001403 BEQ 3$ 3BR IF BITS WERE CLEARED. 
(1) 012614 005005 CLR R5 sCLEAR FOR ERROR PRINTOUT 
(1) 012616 104002 ERROR+ 2 s*BIT FAILED TO CLEAR 
(1) 012620 011305 MOV (R3) RS sRESTORE THE BIT. 
(1) 012622 104401 3$: SCOP1 3Sw09 SET? 
(1) 012624 012737 012632 001364 MOV tg Fo 3SET UP FOR = TIGHT SCOPE 
(1) 012632 010510 13$: MOV R5, (RO) 3SET THE BIT AGAIN 
(1) 012634 104413 DEVICE.CLR dhe DEVICE CLEAR 
(1) 012636 011004 MOV (RO) ,R4 sREAD THE BIT. 
(1) 012640 001403 BEQ 4% BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
(1) 012642 005005 CLR R5 3SET EXPECTED TO ZE 
(1) 012644 104002 ERROR+ 2 3*BIT NOT CLEARED BY DEVICE CLEAR 
(1) 012646 011305 MOV (R3),R5 sRESTORE BIT AGAIN 
(1) 012650 104401 4$: SCOP1 ;$W09 SET? 
(1) 012652 062703 000002 ADD #2,R3 sPOP R 
(1) 012656 005713 TST —- (RS) its THIS THE END OF TABLE? 
(1) 012660 001407 BEQ 6$ sIf YES GET OUT 
(1) 012662 000734 BR 1$ OTHERWISE TEST NEXT BIT 
(1) 012664 000010 5$: @MAINT 3CSR BIT: INTERNAL MAINTENANCE 
(1) 012666 000040 #MSENAB 3CSR BIT: rot SCAN ENABLE 
(1) 012670 010000 @SILOEN sCSR BIT: SILO ENABLE 
(1) 012672 000100 #RIE CSR BIT: RECEIVER INTER. ENABLE 
(1) 012674 040000 aTIe 3CSR BIT: TRANS. INTER. ENABLE 


8 6 


SEQ 66 
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(1) 012676 000000 #0 sEND OF TABLE 
(1) 012700 005037 001364 6$: CLR LOCK sZERO LOCK INDICATOR 
8754 stenenecereererecenaenene TEST 4 seerenaeaeagacenenereneaneeres 
(1) s*THIS vat THAT ALL OF THE TCR BITS 
(1) s*CAN BE: StT, CLEARED, AND CLEARED BY A gb CLEAR. 
(1) 3*TH3S TEST ALSO DETERMINES IF THE DTR BITS CAN 
8 rest ‘ SET, CLEARED, AND CLEARED BY A RESET. 
332 
(6) n+ SET a OT Tas 
(5) 012704 000004 iets: SCOPE 
(3) 012706 012737 000004 001246 MOV #4 ,STSTNM sLOAD THE NUMBER OF THIS TEST 
(3) 012714 012737 013110 001362 MOV #TST5 NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 012722 013700 002024 MOV DZVTCR,RO sSET DEVICE ADDRESS 
(1) 012726 012703 013014 MOV #5$,R3 sSET R3 POINTER TO TOP OF TABLE 
(1) 012732 012737 012742 001364 1S: MOV #11$,LOCK SET LOCK FOR SwO9 SCOPE LOOP 
(1) 012740 011305 MOV (R3) RS 3SET ae hh RESULTS 
(1) 012742 010510 118: MOV R5, (RO) sSET THE BIT 
(1) 012744 011004 MOV (RO) ,R4 sREAD THE BIT FROM THE DEVICE 
(1) 012746 020504 CMP R5,R4 DID THE BIT SET? 
(1) 012750 001401 BEQ 2s 3BR IF YES 
(1) 012752 104002 ERROR+ 2 3*BIT FAILED TO SET. 
(1) 012754 104401 2s: SCOP1 ;SWO9 SET? 
(1) 012756 012737 012764 001364 MOV ase 3 SET re FOR NEXT TIGHT SCOPE LOOP 
(1) 012764 040510 3$: BIC R5, (RO) sCLEAR THE BIT 
(1) 012766 011004 MOV (RO) ,R4 sREAD THE REGISTER 
(1) 012770 001403 BEQ 4% 3BR IF YES 
(1) 012772 005005 CLR R5 3SET EXPECIED TO 0 
(1) 012774 104002 ERROR+ 2 s*REPORT BIT NOT CLEAR 
(1) 012776 011305 MOV (R3) ,R5 sRESTORE - 
(1) 013000 104401 4$: SCOP1 3SWO9 SET? 
(1) 013002 062703 000002 ADD #2,R3 :POP POINTER TO NEXT TABLE ENTRY 
(1) 013006 005713 TST (R3) END OF TABLE? 
(1) 013010 001412 BEQ 6$ z21f YES JUMP OVER TABLE 
(1) 013012 000747 BR 1$ sSTART TESTING NEXT BIT 
(1) 013014 1 5$: #TCRO sTCR BIT FOR LINE 0 
(1) 013016 000002 #TCRi sTCR BIT FOR LINE 1 
(1) 3020 #TCR2 sTCR BIT FOR LINE 2 
(1) 013022 000010 #TCR3 sTCR BIT FOR LINE 3 
(1) 013024 #DTRO s0TR BIT FOR LINE 0 
(1) 013026 001000 #DTRI sDTR BIT FOR LINE 1 
(1) 013030 002000 #DTR2 sDTR BIT FOR LINE 2 
(1) 013032 #DTRS sDTR BIT FOR LINE 3 
(1) 3034 000000 #0 sEND OF TABLE 
(1) 013036 005037 001364 6$: CLR LOCK sCLEAR TIGHT SCOPE LOOP INDIC. 
(1) 013042 012710 177777 — #-1, (RO) sSET ALL BITS IN TCR REGISTER 
(1) 013046 012705 007400 #007400,R5 sSET EXPECTED 
(1) 013052 104 DEVICE. CLR sSET DCLR BIT IN CSR 
(1) 013054 (RO) ,R4 sREAD REGISTER 
(1) 013056 020504 CHP R5.74 sTCR BITS CLEARED? 
(1) 013060 001401 BEQ 7$ 31F YES BRANCH 
(1) 013062 104002 ERROR+ 2 sTCR BITS NOT CLEARED! 
(1) 013064 005005 7$: CLR RS 3SET eth: TO ZERO 
(1) 013066 005227 000000 8$: INC #0 sDELA Y FOR ACT 
(1) 013072 001375 BNE 8$ 
(1) 013074 012710 177777 MOV #-1, (RO) SET ALL POSSIBLE BITS 
(1) 013100 000005 RESET 300 BUS INIT 
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013102 


013110 


013212 


013212 
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011004 
001401 
104002 


000005 
013212 
002010 
121600 


100040 
000017 
000040 


001400 


000006 
013342 


002010 
177757 
050150 
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001246 
001362 


166642 


001246 
001362 
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MOV (RO) ,R4 3D1D REGISTER CLEAR? 
BEQ 9$ sIF YES GET OU 
ERROR+ 2 sREGISTER DID NOT CLEAR! 


9$: 

stenaneernerenreeeeeenenee TEST § eeenecerenreneeneereneeeeneere 
s*THIS TEST VERIFIES THAT 

3*BITS “*RDONE ,TROY, BIT9, BITS, 

3 *AND SILOAL'" ARE READ ONLY AND THAT TROY IS 

seZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 

3: Test "5 

—AXVVVEXVVVXVCVVVDVXVCVVCVXCOEEDEE 

TSTS: SCOPE 
MOV #5. STSTNA sLOAD THE NUMBER OF THIS TEST 
MOV @TST6,NEXT sPOINT TO THE START OF THE NEXT TEST 

MOV DZVCSR, RO 3SET ADDRESS TO RO 
eee ++ 7 A DEVICE CLEAR 
CLR R T EXPECTED TO 0 
MOV AROONESTRDY+BITOSBITSYSILOAL. (RO) 

sWRITE THE BIT 8 

(RO) ,R4 sREAD BACK THE BITS 

BEQ 2s 36R NONE ARE SET. 
ERROR+ 2 s*BITS WERE SET. 

2s: MOV #TROY*MSENAB,RS 3SET EXPECTED BIT 
BIS #17, a@D0ZVTCR sSET TCR BITS FOR ALL LINES 
BIS @ASENAB, (RO) 3SET SCAN ENABLE 
CLR R2 3SET COUNTER TO ZERO 

3$: MOV (RO) .R4 sREAD THE REGISTER 
BIC #BIT9'BIT8,R4 MASK OUT LINE NO. 

CMP R5,R4 sB1T SET? 

BEQ sBR IF YES 

DELAY sSTALL TIME 

INC Rk? sUPDATE COUNTER 

BNE 3$ 3;BR IF COUNTER NOT DONE. 

+ ERROR+ 2 S*TRDY NOT SET! 
—ALLLUVXXXXXXVEVXVVOO 
s*THIS TEST VERIFIES THAT: 

s*TIe, oat a -MSENAB,AND MAINT ARE THE 
ONLY R/W B $ iN THE D2VCSR AND THAT 
— —88 IN THE CSR WILL CLEAR THESE BITS. 
ss 


—IXVVVVXVVVRVVXVVXVVV 


i816: SCOPE 
MOV #6,$TSTNA :LOAD THE NUMBER OF THIS TEST 


MOV @TST7 NEXT sPOINT TO THE START OF THE NEXT TEST 
—23269 sSET OCLR IN CSR 
DZVCSR,RO * UP FOR ERROR MESSAGE 


NOV #*C<DCLR>, (RO) TO SET ALL BITS EXCEPT DCLR 
MOV PTIEESILOEN!RIE:AGENABIRAINT, oRS ;MAKE EXPECTED 


MOV (RO) -R4 
R4, as :CHP EXPECTED VS ACTUAL 


BEQ 1 :Y 
ERROR+ 2 ;*NO 
1$: CLRB (RO) CLEAR LOW BYTE OF CS 


R 
CLRB RS sCLEAR LOW BYTE OF EXPECTED DATA 


SEQ 67 
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177757 
166510 
000150 


177757 
000020 


000007 
013426 
002014 


106000 
177777 


166402 


000010 
013512 
002030 


001246 
001362 


166416 


001246 
001362 
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MOV (RO) RG sREAD CSR 
CMP RO RS 3D0ES on COMPARE WITH EXPECTED? 
BEQ 38 sBRANCH IF YES 
ERROR+ 2 31F NOT PRINT ERROR 
3$: MOV #*C<DCLR>, (RO) ;SET ALL CSR BITS POSSIBLE 
CLRB @HOZVCSR sCLEAR HIGH BYTE OF CSR 


MOV @RIE!MSENAB! MAINT RS sSET EXPECTED IN RS 
(RO) ,R4 3READ CSR REGISTER 


CMP Re Rs SDOES ACTUAL=EXPECTED 
BEQ 4$ 31F YES CONTINUE 
ERROR+ 2 SIF NO PRINT ERROR 
4$: MOV #*C<DCLR>, (RO) 3SET ALL POSSIBLE CSR BITS 
CLR RS SET RS TO EXPECTED RESULTS 


BIS #OCLR, (RO) 
NOP 
MOV (RO) RG 


DEVICE MASTER RESET 


ACTUAL 
CMP RO RS :CMP ACTUAL VS EXPECTED 
BEQ 2$ ZYES 
ERROR+ 2 3*NO 


2s: 
steeanerrereeereceerenaee TEST 7 senneneerenceneeneeceneneeeeer 
s*THIS TEST PERFORMS RESET TESTING AND 
s*TESTING OF READ ONLY REGISTER D2VRBUF 

sf 13 TESTING OF WRITE ONLY REGISTER DZVLPR 


ié17: SCOPE 
MOV #7, STSTNM SLOAD THE NUMBER OF THIS TEST 
MOV #TST10, NEXT :POINT TO THE START OF THE NEXT TEST 


DEVICE.CLR sCLEAR DZV11 
MOV DZVRBUF ,RO +e UP FOR ERROR MESSAGE 
MOV 0) RS PRESENT CONTENTS 
BIC sovAL 1D 811118171085" sCLEAR ILLEGAL BITS 
MOV —3* 31 O'WRITE ALL 1°S 
MOV (RO) .R SACTUA 
cH RG, ns CMP ACTUAL VS EXPECTED 
BEQ zuf YES,GO CONTINUE PROCESSING 
ERROR* 2° ;*ERROR- BIT PATTERN NOT CORRECT 
1$: CLR Q@DZVLPR ;TRY TO WRITE ALL ZEROES 
MOV CRO) — sREAD REGISTER 
CMP GRE 3CMP ACTUAL VS. EXPECTED 
BEQ 2b sBRANCH IF EQUAL 
2 ERROR+ 2 sVALUES DID NOT COMPARE 
steeecececececeeeecerenes TEST 10 eeeeeecerecencereneneeeenenere 
s*THIS TEST PERFORMS RESET TESTING AND 
s* TESTING OF READ ONLY REGISTER DZVMSR 
4 —8 TESTING OF WRITE ONLY REGISTER DZVTOR 
23* 


—XVVVVDOCO&CVU8ECECCRDWUEOV 


TST10: SCOPE 
MOV #10, STSTNA OAD THE NUMBER OF THIS TEST 


MOV @TST11 NEXT SPOINT TO ine START OF THE NEXT TEST 


2v11 
v SR,RO 3SET UP FOR ERROR MESSAGE 
MOV (RO) RS [COPY PRESENT CONTENTS 


























013512 
013514 


11-MAR-83 


170360 
177777 166346 


166332 


000011 001246 
013706 001362 
001372 


013630 
002030 


000001 
001366 


001372 
000001 


166172 


001364 


CVDZA=D MACY11 30(1046) io 10:13 PAGE 


10-52 
CVDZAD.P11 DZV11 DEVICE DIAGNOSTICS. 


18: 


2s: 


= o> 


ST11: 


10$: 
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BIC #170360,R5 sCLEAR ILLEGAL +} 
MOVE #-1 .adZVTOR sTRY TO WRITE ALL 1°S 


MOV (ROS .R SACTUAL 

CMP anes 3CMP ACTUAL VS EXPECTED 

BEQ 1$ :1F YES.GO CONTINUE PROCESSING 
ERROR+ 2 *ERROR- BIT PATTERN NOT CORRECT 
CLR SDZVTOR :TRY TO WRITE ALL ZEROES 

MOV (RO) RG ;READ REGISTER 

CMP RGRS [CMP ACTUAL VS. EXPECTED 

BEO 2$ [BRANCH IF EQUAL 

ERROR+ 2 [VALUES DID NOT COMPARE 


steeeneceeecereneeneneees TEST 1] eeeceeeenneeeeeeeenereeeeeece 
;eVERIFY THAT SETTING “DTR™ FOR A LINE WILL 

ING UP ‘’CO"’ AND ‘RING’ FOR: 
eTHE SAME LINE IF IN EXTERNAL MODE 
s*THE STAGGERED LINE IF IN STAGGERED MODE. 
s*LINES ARE STAGGERED AS FOLLOWS: 


TEST 11 


PE bbiiiiitid dh hh hhh hh hahha bhi ti titi titi titi siti iititiriiiiiiitity 


SCOP 


MOV #11,STSTNM sLOAD THE NUMBER OF THIS TEST 
MOV @TST12,NEXT sPOINT TO THE START OF THE NEXT TEST 
TST MODE sTEST TO SEE IF TESTING WITH 
BNE 8$ ; CONNECTOR 

ADVANCE 31F NO, GO TO NEXT TEST 

MOV — sSET FOR TIGHT SCOPE LOOP 
DEVICE.CLR sSET DCLR IN CSR TO ZERO DEVICE 
MOV DZVMSR,RO sSET REGISTER 

CLR R3 sZERO LINE NUMBER 

MOV #1,R2 sSET POINTER 

8116 R2 LINE sTEST THIS LINE? 

BNE 3$ YES 

INC R3 sLINE @ 

SHIFT 3GET NEXT LINE 

BR 1$ sTEST NEXT LINE 

OV R2,R4 3SAVE BINARY BIT FOR LINE # 
TSTB E sRUNNING IN EXTERNAL MODE? 

BAI 5$ IF YES SKIP STAGGERED SETUP 
BIT #B1TO,R3 : EVEN LINE 

BEQ 48 GET ODD PARTNER 

ASR RG OTHERWISE GET EVEN COMPANION 
BR 5$ 360 SETUP EXPECTED RESULTS 

ASL R4 3FIND ODD PARTNER 

OV R4,RS sLOAD RS FOR EXPECTED 

SWAB 5 sPLACE IN UPPER BY 

81S8 R4,RS sSET FOR RING BITS 

81S8 R2,QHDZVICR sSET DIR BIT 

DELAY sDELAY FOR CABLE LAG 

MOV (RO) ,R4 sMOVE RESULTS OF wR REGISTER TO R4 
CAP RS5,R4 sRESULTS=EXPECTED? 






sea 69 























Fe Fe FR FR PF Pn Pa Pa Pa Pi Pa Pa Pa Pa Pn Pn Pe Pn Pn Pe Pe Pe 
— — —— — — — — — — — — — — — — — — — — — — 
we ee ee eee ee ee ee ee ee ee ee ee ee eee ae a es ae we 


es 
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013656 
166144 


013630 


000012 
014040 


000400 
001374 


001364 


001364 


001246 
001362 


001364 
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BEQ 6$ 44 YES CONTINUE 
ERROR* 2 31F NOT PRINT ERROR RESULTS 
6$: SCOP1 1S SwO9 SET? 
MOV #71$,LOCK 3SET UP FOR NEXT TIGHT SCOPE 
118: 81CB R2 ,@riDZVTCR sCLEAR DTR BIT FOR LINE UNDER TEST 
DELAY sDELAY FOR CABLE LAG 
MOV (RO) ,R4 4 MSR REGISTER INTO R4 
BEQ 7$ s1F CO AND RING CLEARED CONTINUE 
CLR R5 OTHERWISE SET EXPECTED FOR ERROR 
ERROR+ 2 sPRINTOUT 
7$: SCOP 31S Sw09 SET? 
MOV #10$,LOCK RESET TIGHT SCOPE LOOP 
BR 2s sGET NEXT LINE 
steearenececereneecerecer TEST 12 eeeeeeeceneneeereerereeseecers 
3* THIS TEST VERIFIES THAT TROY IS SET WHEN A LINE 
s* IS READY TO BE LOADED, AND THAT THE LINE SPECI- 
3* FIED IN BITS 8-9 OF DZVCSR CORRESPOND 
seal es” THE LINE SELECTED IN DZVTCR 
7° 
so Meeeeerenrareerereerercererereeereneererentanernenteneenenerere 
TST12: SCOPE 
MOV #12, STSTNA sLOAD THE NUMBER OF THIS TEST 
MOV @TST13,,NEXT sPOINT TO THE START OF THE NEXT TEST 
DEVICE.CLR s ISSUE A ‘DEVICE CLEAR" —" 
MOV #2$,L0CK 3SET UP FOR TIGHT SCOPE L 
CLR SAVLIN dns wt | FOR ERROR PRINTOUT 
MOV DZVCSR,RO sSET POINTER 
MOV #ASENAB! TROY RS START THE EXPECTED LINE NUMBER AT 0 
OV #1,R2 sUSING R2 AS A BIT POINTER, POINT TO LINE 0 
18: 8116 age CINE 31S THIS LINE SELECTED? 
BEQ 31F NO, SKIP THE STARTUP 
2s: BIS R2 .aDZVICR sSET THE GO BIT FOR THIS LINE 
BIS @ASENAB, (RO) sSTART THE SCANNER 
CLR R4 sSET FOR DELAY 
38: TST (RO) 3TX READY? 
I $ sBR IF YES 
DELAY sDELAY 
NC 86 z20000 kR 
BNE 3$ sBR IF <>0! 
ERROR+ 3 3*TX NOT READY! 
4$: MOV (RO) RS sGET THE LINE —** be THE SCANNER 
CMP RG RS 31S THE LINE SHOULD BE? 
PEQ 5$ s1F YES,GO WORK KON THE” NEXT LINE 
ERROR* 2 s*LINE NUMBER DID NOT MATCH Ter BIT 
5$: COP 21S *8 SET? 
DEVICE.CLR 3SET ects IN CSR;SETUP FOR NEXT LINE 
6$: oRS POINT TO THE NEXT EXPECTED LINE 
SHIFT 3POINT 5 THE NEXT LINE ARE ALL LINES TESTED? 
F ram sADJUST FOR ERROR PRINTOUT 


iF rs GO DO THE NEXT LINE 


—— TEST 


s*TEST TO TRANSMIT ONE tay 


; WAR B.. one 
stAT A TIME. THE C . AND 
S*ALL SELECTED LINES "uli BE TURNED ON. 


3 Qeeecereneceneeraeeeeeegeeerece 






G 6 


SEQ 71 
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8856 y*THIS IS THE FIRST TIME ANY 
8857 S*DATA IS CHECKED IN THE RECEIVER. 
RaS8 S*USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
8859 * wieca TOANSMITS A STEADY STREAM OF CHARACTERS. 
s3@ 
(5) tlh Re ETE LEE te: 
(4) 014040 000004 TST13: SCOPE 
(2) 014042 012737 000013 001246 MOV #13, STSTNM LOAD THE NUMBER OF THIS TEST 
(2) 014050 012737 014330 001362 MOV @TST14,NEXT SPOINT TO THE START OF THE NEXT TEST 
(1) 014056 012737 014312 001364 MOV #16$,L0CK SUSE THIS ADDRESS IF A TIGHT ii ore LOOP IS SELECTED 
014064 104417 DCLASM 3SET DCLR IN CSR AND SET MAINT MODE 
8863 014066 104421 LPRSET :LOAD LPR REGISTER FOR ALL LINES 
8864 014070 005037 001374 CLR SAVLIN SINIT. FOR ERROR PRINTOUT 
8865 014074 105037 001425 CLRB ——-DONFLG SINIT FOR TCR BIT HANDLER 
8866 014100 012702 000001 MOV #1,R2 [LINE POINTER 
8867 014106 012701 000252 MOV #252,R1 SSAVE CHARACTER TO BE TRANSMITTED 
8868 014110 052777 000040 165672 BIS #MSENAB,@DZVCSR START SCANNER 
8869 014116 030237 001366 3S: BIT R2,LINE SVALID LINE ? 
8870 014122 001467 BEO 15$ 3NO ser UP NEXT LINE 
8871 014124 010277 165676 MOV R2,aDZVTCR 3SET TCR BIT 
8872 014130 005005 5$: CLR R5 SET RS FOR A DELAY LOOP 
8873 014132 105777 165652 TSTB = @DZVCSR at REC DONE = 0 ? 
8874 014136 100001 BPL és sIF YES, ALLOW TIME FOR TRDY TO SET 
8875 014140 1046020 ERROR+ 20 S*REC DONE SHOULD = 0 
8876 014142 005777 165642 68: TST @DZVCSR TROY SET? 
8877 014146 100404 BMI 7$ IF YES 
8878 014150 104414 DELAY IF NO — SALT FOR IT 
8879 014152 005205 INC RS :DELAY LOOP 
8880 014154 001372 BNE 6$ [BRANCH BACK AND TEST AGAIN 
8881 014156 104003 ERROR+ 3 S*TRDY FAILED TO SET! 
8882 014160 105737 001425 7$: TSTB —«DONFLG SHAVE WE ALREADY SENT CHARAC. 
8883 014164 001061 BNE 13$ 31F YES GO CLEAR TCR BIT 
8884 014166 105237 001425 INCB — DONFLG SIF NOT INDICATE HAVING BEEN HERE 
8885 014172 110177 165636 MOVE =—-R1, @DZVTOR [LOAD CHARACTER 
8886 014176 013705 001374 MOV SAVLIN,RS SMAKE EXPECTED LINE @ 
8887 014202 005737 001372 TST MODE 31S THIS TEST IN STAGGERED MODE? 
9 014206 100006 BPL 10$ zir NOT, SKIP STAGGERED SETUP 
9 zut MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 014210 006205 ASR RS 3GET THE LAST BIT INTO THE CARRY BIT 
(1) 014212 103402 BCS 8$ SIF IT IS SET, GO CLEAR IT 
(1) 016216 000261 SEC z1F IT IS CLEAR SET IT HERE 
(1) 014216 000601 BR 9% SSKIP THE CLEARING 
(1) 014220 000241 8S: CLC SCLEAR THE CARRY BIT CINVERS 108 OF LINE PARITY) 
(1) 014222 006105 98: ROL RS 7GET THE NEW BIT BACK INTO RS 
8888 014224 000305 10$: SWAB R5 SMOVE THE LINE NUMBER TO THE UPPER BYTE 
8889 014226 150105 BISB —s_ RI RS SADD CHARACTER 
8890 014230 052705 100000 BIS @DVALID.RS [ADD DATA VALID 
8891 014234 005003 CLR R 
8892 014236 105777 165546 11$:  TSTB  abdZVCSR z15 RDONE SET? 
8893 014242 100404 Bal 128 SIF YES GO GET CHAR. 
889% 0142466 104414 DELAY SIF NOT THEN WAIT 
8895 014246 005203 INC R3 SDELAY LOOP 
88% 014250 001372 BNE 118 :DELAY DONE? 
8897 014252 104004 ERROR+ 4 S*RDONE FAILED TO SET! 








CVDZA-D MACY11 30(1046) 


CVDZAD.P11 


01 
014310 
014312 
014316 
320 


014 
014324 
014326 


T1-MAR-83 10:13 PAGE 
0:06 


10-55 
DEVICE DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 


11-MAR-83 1 dZv11 
017704 165534 128: MOV @DZVRBUF ,R4 ated THE VALUE ACTUALLY RECEIVED 
020405 CMP R4,RS OMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
001722 BEQ 5$ tr YES, GO DO THE NEXT LINE 
104 ERROR 6 3®NO DATA/CONTENTS DID Nor COMPARE 
000720 BR 5$ : 60 BACK AND WAIT TO CLEAR TCR BIT 
104401 138: SCOP1 i CHECK TO SEE Hd SWITCH NINE IS SET 
105037 14625 CLRB DONFLG 3SET UP FOR NEXT LINE 
005077 165522 CLR @DZVTCR ;CLEAR PREVIOUS TCR BIT 
005237 001374 158: INC SAVLIN sSET LINE INDICATOR FOR NEXT LINE 
104420 SHIFT CALCULATE NEXT LINE 
702 BR 3$ 3GET GET STARTED 
sTIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY 
005777 165472 168: TST @DZVCSR 1S TRANSMITTER READY? 
100375 BPL 16$ 31F NOT, WAIT FOR IT 
110177 165510 MOVB R1,@DZVTOR LOAD THE CHARACTER 
104401 SCOP1 LOOP AGIN IF SwOS=1 
0007 BR 138 sOTHERWISE, GO PICK UP THE TEST NORMALLY 
seeneereeeereerereceecene TEST 14 aeerecenenenecererenenerenenee 
s*THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 
s*DISABLED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 
3*TO ZERO FOR EACH LINE. 
s*THIS TEST ALSO VERIFIES THAT THE SILO CAN BE 
res] ERT HeD BY ISSUING A DEVICE MASTER CLEAR. 
3:* 
—AARRXXVVXVVXXVVOXVODO 
TST14: SCOPE 
012737 000014 001246 MOV #14, STSTNM LOAD THE NUMBER OF THIS TEST 
012737 014652 001362 MOV #@TST15 NEXT POINT TO THE START OF THE NEXT TEST 
105037 001425 CLRB DONFLG sCLEAR TEST CONTROL FLAG 
005037 001374 CLR SAVLIN sCLEAR LINE INDICATOR 
104417 OCLASM s ISSUE A DEVICE MASTER CLEAR 
sAND SET MAINT BIT IF NECESSARY 
013701 001370 MOV PAR,R1 3 SAVE DEFAULT PARAMETERS 
042737 010000 001370 BIC @RCVON, PAR sDISABLE RECEIVER IN DEFAULT PAR. 
104421 1008:  LPRSET sLOAD PARAMETERS IN LPR REGISTER 
010137 001370 MOV R1, PAR RESTORE DEFAULT PARAMETERS 
012701 000252 mov =: #252, R1 LOAD A CHARAC. INTO R1 
013702 001366 MOV LINE ,R2 sCOPY AN IMAGE OF THE ACTIVE LINES 
010277 165410 MOV R2,adZVTC 3SET TCR BITS FOR ALL ACTIVE LINES 
052777 000040 165366 BIS GRSENABLODZVCSR SET MASTER SCAN ENABLE 
005005 1$: CLR RS INIT DELAY COUNTER 
005777 165360 2s: TST @dZVCSR 31S TRANS READY SET? 
100404 BAI 3$ ;BRANCH IF YES 
104414 DELAY WAIT FOR TROY TO SET 
005205 INC RS :INCRERENT DELAY COUNTER 
001372 BNE 2s RETURN TO CHECK TROY 
04003 ERROR+ 3 TROY FAILED TO SET! 
117705 165344 3$: mOVB SHDZVCSR,RS ;MOV E LINE NO. TO RS 
012703 000001 MOV #1,R sINJT TCR POINTER 
2705 177774 BIC rich», RS Fg LINE 7 
001403 BEQ 31$ 31F LINE 0 BRAN 
10630 30$: ASLB RS a SHIET "RS POINTER, * NEXT LINE 
005305 DEC aS sDECREMENT LINE NO 


SEQ 72 


I 6 


SEQ 73 
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8951 014464 001375 BNE 308 sWHEN R520, R3 POINTS TO LINE TCR 
8952 014466 03030 318: BIT R3,R2 HAS CHARACTER BEEN SENT? 

8953 014470 001007 BNE &§ BRANCH IF NO 

8954 014472 140377 165326 BICB R3.aDZVTCR tf YES THEN CLEAR TCR BIT 

8955 014476 001351 BNE 1$ 31F ALL CHARAC. SENT DROP THROUGH 
—8 145 105737 001425 TSTB DONFLG 3 sme M rare ACTIVE IS THIS SECOND 
8958 014504 001037 BNE 10$ sIF YES SKIP TO SECOND PART OF TEST 
8959 014506 04 BR Ph o1F FIRST TIME HERE GO ZERO TCR BITS 
8960 014510 110177 165320 4$: MOVB R1,@DZVTOR sLOAD CHAR. INTO BUFFER 

8961 014514 040302 BIC R3,R2 : INDICATE CHARAC. = ON THIS LINE 
8962 014516 741 BR 3 ;GO BACK AND WAIT FOR TRDY TO SET 
8963 0145 005077 165300 5$: CLR @DZVTCR sCLEAR OUT TCR BITS 

8964 014524 5005 CLR RS s INIT DELAY COUNTER 

8965 014526 105777 165256 6$: TSTB a@DZVCSR 31S RECEIV. DONE SET? 

8966 014532 2 BPL th 31F NOT THEN WAIT TO SEE IF IT WILL 
8967 4534 104020 ERROR+ 20 sREC DONE SHOULD NOT SET! 

8968 014536 620403 BR 8$ 360 FIND WHICH LINE RECEIVED 

8969 014540 104414 7$ DELAY sSTALL FOR RECEIVER 
8970 014542 005205 INC RS bye ae DELAY COUNTER 
8971 014544 001370 BNE 6$ z21f NOT DONE GO RETEST REC DONE 
8972 0145 017704 165242 8$: MOV @DZVRBUF ,R4 FREAD REC. BUFFER 
8973 014552 100007 BPL 5S 31S DVALID SET? 
8974 014554 000304 SWAB RG sIFf YES GET LINE NO. 
8975 014556 042704 177774 BIC #*C<3>,R4 s ISOLATE LINE NO. 
8976 014562 010437 001374 MOV R4,SAVLIN SET UP LINE NO. FOR ERROR REPORT 
8977 014 104017 ERROR+ 17 sDVALID SHUULD NOT BE SET 
8978 014570 000766 BR 88 360 CHECK FOR ANY OTHER CHAR. IN SILO 
8979 014572 105237 001425 9$: INCB DONFLG s INDICATE THAT FIRST PART OF TEST IS DONE 
8980 014576 013701 001370 MOV PAR,R1 SAVE DEFAULT LINE PARAM. 
8981 014602 73 BR 100$ sNOW GO RELOAD LPR REGISTER TO 
8982 TURN RECEIVERS ON 
89835 014604 005005 108: CLR RS 32ERO DELAY COUNTER 
8984 014606 104414 118: DELAY sWAIT FOR ALL CHARAC. TO BE RECEIVED 
8985 014610 005205 INC R5 —— DELAY COUNT 
8986 014612 001375 BNE 11$ sCONT. DELAY IF NOT FINISHED 
8987 014614 104413 DEVICE .CLR i TSSUE A MASTER CLEAR 
8988 014616 000240 NOP 
8989 014620 00024 NOP 
8990 014622 105777 165162 TST8 @DZVCSR sNOW IS RECEIV. DONE SET? 
8991 014626 BPL 12$ s;BRANCH IF NO 
8992 014630 005037 001374 CLR SAVLIN CLEAR LINE NO FOR ERROR REPORT 
8993 014634 104020 ERROR+ 2 sREC. DONE oe NOT BE SET! 
8994 014636 017704 165152 128: MOV @DZVRBUF ,R4 sREAD REC. BUFFER 
8995 014642 100003 BPL 1 31S DVALID SET? IT SHOULDN'T BE 
8996 014644 005037 001374 CLR SAVLIN sDEVICE. CLR DID NOT ZERO SILO 
8997 014650 104017 ERROR+ 17 sPRINT OUT THE ERROR.(LINE NO. IS IRRELEVANT) 
8998 014652 13$: 
9000 seeeeereeeeeececeneseeees TEST 15 eeecenenececeeeeeereneeeeerete 
9001 re THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 

9002 eS tee a MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
9003 3* (ONE LINE AT A TIME BASED UPON VALID LINES) 

+ +44 vest f° Ttls IS THE "inst TIME THAT ALL DATA IS CHECKED 

s3@ 
(5) lB, BERT A ee NI EA ee 


cvd 
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015022 


015024 


000015 
015142 
014756 


001374 
001425 
000001 
000040 
001366 
165064 
001374 
165036 


165024 


001425 
Sores 


001426 
100000 


164730 


164716 


001246 
001362 
001364 


165062 


165022 
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TST15: 


3$: 


4$: 


5$: 
6$: 


7$: 


8$: 
9$: 
10$: 


118: 


128: 


13$: 


J 
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sLOAD THE NUMBER OF THIS TEST 
POINT TO THE START OF THE NEXT TEST 
sUSE bey ADDRESS * a. TIGHT SCOPE LOOP IS SELECTED 
sSET DCLR AND SET FLG 
sLOAD LPR REGISTER Fi FOR ALL LINES 
sINIT FOR FIRST LINE 
sZERO BUFFER AREA 
sZERO TCR BIT HANDLER FLAG 
NE POINTER 


LINE ? 
NO-SET” UP NEXT LINE 
SET TCR BIT 
lat BUFFER POINTER 


31S REC DONE = 0 ? 
o1F YES, ALLOW TIME FOR TRDY TO SET 
s*REC DONE SHOULD = 0 
:USE RS AS TIMER WAITING FOR TRDY TO SET 
S THE TRANSMITTER READY? 
TF SO, GO TRANSMIT A CHARACTER 
sWAIT A LITTLE BIT 
44 THE LOCAL COUNTER.TIME EXCEEDED? 
F NOT, GO TRY AGAIN 
S*TRDY FAILED TO SET: 
ZALL CHARAL. TRANS.? 
cif +. GO ZERO TCR BIT 
LOAD CHARACTER 
sMAKE EXPECTED LINE # 
31S THIS TEST IN STAGGERED MODE? 
s1F NOT, SKIP STAGGERED SETUP 


sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


SCOPE 

MOV #15, STSTNM 
MOV #TST16, NEXT 
MOV #S$,LOCK 
DCLASM 

LPRSET 

CLR SAVLIN 

BUF SET 

CLRB  —DONFLG 

MOV #1,R2 : 
BIS #MSENAB,@DZVCSR ; 
BIT R2,LINE 3 
BEQ 1 

MOV R2,aDZVTCR 
MOV SAVLIN,RO 
ASL RO 

TSTB aDZVCSR 
BPL 5$ 

ERROR+ 20 

CLR R5 

TST @DZVCSR 
fist] 

DELAY 

INC RS 

BNE 6$ 

ERROR+ 3 

TSTB  DONFLG 

BNE 14$ 

MOVB TDO(RO) ,@DZVTOR 
MOV SAVLIN,RS 
TST MODE 

BPL 10$ 

ASR BS 

BCS 88 

SEC 

BR 98 

cuc 

ROL RS 

SWAB RS 

81S8 TDOCRO) RS 
BIS #OVALIO RS 
CLR R3 

TSTB «©aDdZVCSR 

BAI 2s 

DELAY 

INC R3 

BNE 118 

ERROR*+ 

MOV @DZVRBUF .R4 
cAP R4,RS 

BEQ 13$ 

ERROR+ 6 

SCOP1 


sGET THE LAST BIT INTO THE CARRY BIT 
sIF IT IS SET, GO CLEAR IT 

3IF IT IS CLEAR SET IT HERE 

sSKIP THE CLEARING 

sCLEAR THE CARRY BIT ent 8S OF LINE PARITY) 


TO THE UPPER BYTE 
sADD DATA VALID 


sREC DONE? 
iI YES GO CHECK CHAR. 


: #RDONE FAILED TO SET! 
SLOAD THE VALUE ACTUALLY RECEIVED 
SCOMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 


YES, GO DO THE NEXT 
3®NO DATA/CONTENTS DID NOT COMPARE 
sCHECK TO SEE IF SWITCH NINE IS SET 


SEQ 74 


K 6 


SEQ 75 
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9049 015106 105260 001426 INCB TDOCRO) : INCREMENT BINARY PATTERN FOR THIS LINE 

9050 015112 001315 BNE 6% 360 "ROUND AGAIN FOR = CHARACTER 

9051 015114 105237 001425 INCB =: DONFLG ZINDICATE ALL CHAR, SENT 

9052 015120 000712 BR 4¢ sBRANCH TO CLEAR TCR BIT 

9053 015122 005077 164676 148: CLR adZvicR CLEAR TCR REGISTER 

9054 015126 105037 001425 CLRB_ = DONFLG sINIT FOR NEXT LI 

9055 015132 005237 001374 15$: INC SAVLIN s INC EXPECTED LINE 

9056 015136 104420 SHIFT 4g THE LINE POINTER. ARE WE ALL DONE? 

—8 015140 000672 BR 38 zIf NO, GO AROUND AGAIN FOR NEXT LINE 

9059 | 

gs teeeeeeeeeeeeeneeeeenene TEST 16 seeeencencenereeeeeenegeereres 

9061 s*THIS TEST WILL PROVE THAT: | 

9062 s* 1) THE TRANSMITTER "BREAK BIT’’ WORKS 

9063 3* 2) THE RECEIVER CAN FLAG “FRAMING ERRORS" 

9064 3* 3) THE RECEIVER CAN FLAG “PARITY ERRORS’ 

9065 s*ONLY ONE LINE AT A TIME WILL BE EXERCISED. 

9067 gi TEST 16 | 
(5) + hbbehebetishtdettittti ddd hhh hhh hhh batt ittititiiitiiiiiiiiiiiiiiiiiify 
(4) 015142 000004 TST16: SCOPE 
(2) 015144 012737 000016 001246 MOV #16,STSTNM sLOAD THE NUMBER OF THIS TEST 
(2) 015152 012737 015344 001362 MOV @TST17 NEXT as TO THE START OF THE NEXT TEST 

9068 015160 012737 015270 001364 MOV #5$,LOCK 3SET FOR LOOP 

9069 015166 005037 001374 CLR SAVLIN sINIT LINE INDIC. FOR ERROR PRINTOUT 

9070 015172 012702 000001 MOV #1,R2 sLINE POINTER 

9071 015176 030237 001366 1$: BIT R2,LINE sVALID LINE? 

9072 015202 001454 BEQ 9$ 31F NOT SEi FOR NEXT LINE 

9073 015204 104417 DCLASM sSET DCLR_IN CSR AND SET MNTFLG 

9074 015206 013701 001370 MOV R1 3PICK UP PARAMETERS 

9075 015212 052737 000300 001370 BIS ZODOPAR!PARITY, PAR oo ODD PARITY 

9076 015220 104421 LPRSET 3LOAD LPR REGISTER | 

9077 015222 010137 001370 MOV R1,PA RESET” PAR TO ORIGINAL VALUE 

9078 015226 052777 000040 164554 BIS GRSENAB,@DZVCSR 3START SCANNER 

9079 015234 013705 001374 MOV SAVLIN,RS sMAKE EXPECTED DATA 

9080 015240 005737 001372 TST MODE 31S THIS TEST IN STAGGERED MODE? 

Mt 015244 100006 BPL 48 s1F NOT, SKIP STAGGERED SETUP 

1; sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 

(1) 015246 006205 ASR RS sGET THE LAST BIT INTO THE CARRY BIT 

(1) 015250 103402 BCS 2s s1f IT IS SET, GO CLEAR IT 

(1) 015252 000261 SEC 31F IT IS CLEAR SET IT HERE 

(1) 015254 000401 BR 3$ sSKIP_ THE CLEARI 

(1) 015256 000241 28: cLC sCLEAR THE CARRY BIT — OF LINE PARITY) 
(1) 015260 006105 3$: ROL RS 3GET — NEW BIT BACK INTO RS 

9081 015262 000305 4$: SWAB RS sPUT LINE NUMBER IN UPPER i 

9082 015264 052705 130000 81S SDVALID!PARER! FRAERR, RS sADD EXPECTED 

9083 015270 005003 5$: CLR R3 s INIT DELAY ACCUMULATOR 

9084 015272 110277 164540 aovs R2,QHDZVTDR 3SET BREAK BIT 

9085 015276 105777 164506 6$: TSTB = aDZVCSR sRECEIVER DONE? 

9086 0153502 100404 BAI 7$ CH IF YES 

9087 015304 104414 DELAY WAIT FOR we pT ee TO SET 

9088 015306 005203 INC R3 ZINC DELAY 

9089 015310 0013572 BNE 6s sDELAY FINISHED? 

9090 015312 104004 ERROR+ 4 s*RDONE FAILED TO SET! 


3 
So 
— 
wm 
tn 
= 
x 
So 
= 
~ 
= 


164476 7$: MOV @DZVRBUF ,R4 3 ACTUAL 


L 6 
SEQ 76 


CVDZA-D MACY11 30(1046) 11-MAR-83 10:13 PAGE 10-59 
CVDZAD.P11 11-MAR-83 10:06 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

9092 015320 020405 CMP R4,RS 3 CMP er VS EXPECTED. DO THEY MATCH? 
9093 015322 001401 BEQ 8$ ZF YES, GO CLEAN 
9094 015324 104006 ERROR+ 6 3 *DATA/CONTENTS FAILED TO COMPARE 
9095 015326 105077 164504 8$: CLRB Q@MOZVTOR 3 CLEAR BREAK BITS 
9096 015332 104401 SCOP1 4-H 
9097 015334 005237 001374 98: INC SAVLIN 31 NC L 
9098 015340 104420 SHIFT 3SET Rat 0 NEXT LINE 
9099 015342 000715 BR 1$ 360 BACK AND TEST NEXT LINE 
9100 peeeeecceceereeeeeeeerees TEST 17 aeeenenneeneneenrecereereerere 
(1) te THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 

(1) s*WHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 

a) 3*BUT WILL INTERRUPT IF THE PROCESSOR STATUS 

(1) *ALLOWS INTERRUPTS. 

(3) s:@ TEST 17 

(6) POPPI SILI ITT IIIT III Titi it iitititiirtiriitititiiti 
(5) 015344 000004 TST17: SCOPE 

(3) 015346 012737 000017 001246 MOV #17, STSTNM sLOAD THE NUMBER OF THIS TEST 

(3) 015354 012737 015740 001362 MOV #TST20,NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 015362 104417 DCLASM 3sSET DCLR IN CSR AND SET MAINT BIT 
(1) IF NECESSARY (INTERNAL MODE) 

(1) 015364 104421 LPRSET 3sSET UP LPR REGISTER 

(1) 015366 005037 001374 CLR SAVLIN sINIT LINE INDIC. FOR ERROR 

(1) 015372 105037 001425 CLRB DONFLG sINIT TCR BIT HANDLER FLAG 

(1) 015376 113777 001366 164420 MOVB LINE ,@DZVTCR sSET ALL VALID TCR BITS 

(1) 015404 106427 000200 MTPS @MASK sSET CPU STATUS TO DZvV11 PRIO, 

(1) 015410 012777 000200 164424 MOV @MASK ,ADZVRIS :SET RECEIVER STATUS 

9 HE ads 012777 000200 164422 om MOV @MASK ,Q@DZVTIS ;SET TRANSMITTER STATUS 

(2) 0154246 012777 015512 164412 MOV #63 ,a0ZVTIV SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 015432 012777 015534 164400 MOV #7$ ,a0ZVRIV SET UP THE RECEIVER INTERRUPT VECTOR 
(2) 015440 012777 000200 164374 MOV MASK ,QDZVRIS sSET THE INTERRUPT VECTOR STATUS 

(2) 015446 012777 000200 164372 MOV @MASK ,QDZVTIS ;SET TRANSMITTER INTERRUPT PRIORITY 
(2) 015454 052777 040040 164326 BIS @TIE!MSENAB,@DZVCSR ny THE DEVICE 

(1) 015462 005005 CLR R5 sINIT DELAY COUNTER 

(1) 015464 005777 164320 4$: TST adZvCSR sTRDY SET? 

(1) 015470 100003 BPL by 31f NOT GO DO DELAY 

(1) 015472 000240 NOP sWAIT FOR INTERRUPT 

(1) 015474 000240 NOP 

(1) 015476 000420 BR 8$ 360 CLEAR TIE BIT 

(1) 015500 104414 5$: DELAY sDELAY ROUTINE CALL 

(1) 015502 005205 INC R5 3s INC DELAY COUNTER 

(1) 015504 001367 BNE 48 DELAY FINISHED? 

(1) 015506 104003 ERROR+ 3 3eTR 4 NOT SET! 

(1) 015510 000413 BR 8$ 760 ¢ LEAR TIE 

(1) 015512 022626 6$: POP2SP ** THE INTERRUPT FROM THE STACK 
(1) 015514 042777 040000 164266 BIC #TIE ,aDZVCSR DON'T LET ANY MORE a+ OCCUR 
(1) 015522 105737 001425 TSTB DONFLG PROCESSOR ALLOWING INTER? 

(1) 015526 001013 BNE 0s 315 YES NO ERROR 

(1) 015530 104010 ERROR+ 10 315 NOT PRINT ERROR 

(1) 015532 13 BR 9% sRET TO THE NORMAL FLOW 

(1) 015534 104012 7$: ERROR+ 12 2 *RECEIVER —28 NOT INTERRUPT 

(1) 015536 022626 POP2SP FAKE RTI 

(1) 015540 042777 040000 164242 &8$: BIC #TIE ,ad2VCSR SRESET TRANSMITTER INTERKUPT ENABLE 
(1) 015546 105737 001425 TSTB DONFLG :INT = at ENABLED? 

(1) 015552 001403 BEQ uy 31F NOT GET OUT 

(1) 015554 104007 ERROR* 7 31F YES TRANS FAILED TO INTER. 
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(1) 015556 106427 000000 
(1) 015562 
(2) 015562 012777 015666 164254 
(2) 015570 012777 015672 164242 
(2) 015576 012777 000200 164236 
(2) 015604 012777 000200 164234 
(2) 015612 ser? 000140 164170 
(1) 015620 113777 001426 164206 
(1) 015626 005005 
(1) 015630 105777 164154 
(1) 015634 100003 
(1) 015636 000240 
(1) 015640 000240 
(1) 015642 000404 
(1) 015644 104414 
(1) 015646 005205 
(1) 015650 001367 
(1) 015652 104004 
(1) 015654 105737 001425 
(1) 015660 001411 
(1) 015662 104011 
(1) 015664 000407 
(1) 015666 104010 
(1) 015670 000404 
(1) 015672 105737 001425 
(1) 015676 001001 
(1) 015700 104012 
(1) 015702 022626 
(1) 015704 042777 040100 164076 
(1) 015712 105737 00142 
(1) 015716 001005 
(1) 015720 105237 001425 
(1) 015726 106427 
(1) 015730 000635 
(1) 015732 106427 000200 
(1) 015736 104413 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9111 
(5) 
(4) 015740 
(2) 015742 012737 000020 001246 
(1) 015750 012737 004246 001362 
9112 015756 104417 
9113 015760 104421 
9114 015762 005037 001374 
9115 015766 012777 016176 164044 
9116 015774 012777 000200 164040 
9117 016002 012777 016264 164034 
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F mps #CLEAR sALLOW INTERRUPTS 


MOV #11$,aD0ZVTIV sSET UP THE TRANSMITTER INTERRUPT VECTOR 
MOV #12$ ,@DZVRIV 3SET UP THE RECEIVER Prat ates VECTOR 

MOV sWASK ,@DZVRIS sSET THE INTERRUPT VECTOR STATUS 

MOV @MASK @DZVTIS ;SET TRANSMITTER INTERRUPT PRIORITY 
—* RIE SASENAB, @DZVCSR Net THE DEVICE 


MO T00,aD2ZVT sLOAD BUFFER WITH ANY CHAR. 
CLR RS zINIT DELAY ACCUMULATOR 
138: TST8 @dZVCSR REC. a 
BPL 14h sIF NOT DELA 
NOP sWAIT FOR INTERRUPT 
NOP 
BR 18$ 
14$ DELAY sDELAY FOR INTERRUPT 
INC R5 s INCREMENT DELAY COUNTER 
BNE 138 sDELAY FINISHED? 
ERROR+ 4 3*NO RX DONE! (NOT SET) 
188: TSTB DONFLG PROCESSOR ALLOWING ee 
BEQ 158 31F NOT DON’T PRINT ERR 
“pee 11 :RECEIVER care TO INTERRUPT 


TINUE TEST 
;TRANSAITTER SHOULD NOT INTER. 
3PROCESSOR ALLOWING —ñ— 


BNE sIF YES DON'T PRINT ERR 
ERROR+ 12 3 *RECEIVER —*8 NOT INTERRUPT 
16$: POP2SP 3POP FOR FAKE RTI 
15$: BIC ot SP aati oe INTERRUPTS 
TSTB FLG 3SEC TIME T — 
BNE 195 sIF YES LEAVE TEST 
INCB DONFLG s1F NO INDICATE SECOND TEST PASS 
MTPS #CLEAR ALLOW INTERRUPTS 
BR 1$ sRESTART TEST 
178: MTPS @MASK sDON*T ALLOW INTERRUPTS 
DEVICE.CLR sCLEAR DEVICE, LEAVE TEST 


steeeeerereceneeeceeeenes JEST 20 eeececeneneeneeeeeceneeeeeeers 
s*THIS TEST VERIFIES THAT THE RECEIVER WILL 
seINTERRUPT BEFORE THE TRANSMITTER EVEN 
*THOUGH THE TRANSMITTER WAS ENABLED 
3*FIRST. SET PS TO HIGH (MASK INTERRUPTS); 
;*GET RDONE AND —* TO SET; 
S*SET TX IE AND RX IE; 
s*CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 
3:8 TEST 20 


iLL h hhh hh hhh hhh hahahaha titi titi Titi iii iii iii iiiiiiiiiiiti 


1$120: SCOPE 
MOV aoe Stem sLOAD THE NUMBER OF THIS TEST 


OP ,NEXT sPOINT TO THE END-OF-PASS HANDLER 
OCLASM sSET DCLR IN CSR TFLG 
LPRSET LOAD PAR REGISTER FOR at LINES 
LR SA sINIT. ERROR LINE 


IV SETUP INTERRUPT STUFF 
MOV @MASK ,ADZVRIS 
MOV #12$,a02VTIV 


SEQ 77 





N 6 


SEQ 78 
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9118 016010 012777 000200 164030 MOV @MASK ,QDZVTIS; 
9119 016016 052777 000040 163764 BIS #ASENAB ,ADZVCSR 
9120 016024 012702 000001 MOV #1,R2 sLINE eee 
9121 016030 030237 001366 3$: BIT R? LINE sVALID LINE ? 
9122 016034 001515 BEQ 1 }-. 31F NOT GO TO NEXT LINE 
9123 016036 106427 000200 4$: MTPS 
9124 016062 110277 163756 MOVB RE aDZVICR sSET TCR BIT 
9125 016066 005777 163742 TST aDZVRBUF 3VALID DATA? 
9126 016052 100001 BPL 24 31T BETTER NOT BE SET 
9127 016054 104017 ERROR+ 17 sDATA VALID SHOULD NOT BE SET 
9128 016056 105777 163726 5$: TSTB = adZVCSR sRECEIVER DONE ? 
9129 016062 100001 BPL 2 
9130 016064 104020 ERROR*+ 20 sRECEIVER DONE BIT SHOULD NOT BE SET 
9131 016066 005005 CLR R5 
9132 016070 005004 CLR R4 
9133 016072 005777 163712 99S: TST @adZVCSR sWAIT FOR TROY 
9134 016076 100404 BMI 1008 3BR IF READY 
9135 016100 104414 DELAY sSTALL TIME 
9136 016102 005204 INC R4 : 
9137 016104 001372 BNE 99S 
9138 016106 104003 ERROR+ 3 sTRDY FAILED TO SET 
9139 016110 105077 163720 100$: CLRB aDZVTOR sSEND A ZERC CHARACTER 
9140 016114 005004 CLR R4 
9141 016116 105777 163666 6$: TSTB = adZVCSR 31S RDONE SET? 
9142 016122 100404 BMI 7$ 
9145 016124 104414 DELAY 
9144 016126 00 N R4 
9145 016130 001372 BNE 6$ 
9146 0161352 104004 ERROR+ 4 s*RDONE FAILED TO eh 
9147 016134 005777 163650 7$: TST adZVCSR TRANS DONE BIT = 1 ? 
9148 016140 100401 BMI +4 sYES 
9149 016142 104005 ERROR+ 3 :*NO TRANS DONE FAILED TO SET 
9150 NOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1 
9151 3SET INTERRUPT ENABLES 
9152 016144 052777 040000 163636 BIS #TIE ,aDZVCSR 
9153 016152 052777 000100 163630 BIS #RIE ,ADZVCSR 
9154 016160 106427 000000 MTPS #CLEAR sALLOW THE INTERRUPTS 
9155 016164 000240 NOP 
9156 016166 000240 NOP 
9157 016170 104007 ERROR+ 7 s*TRANSMITTER FAILED TO INTERRUPT 
9158 016172 104011 ERROR+ 11 S*RECEIVER FAILED TO INTERRUPT 
a +4 016174 000435 BR 148 3GET OUT 
9161 pene INTERRUPT ROUTINE 
9162 016176 017704 163612 8$: @DZVRBUF ,R4 s ACTUAL 
9163 016202 010403 MOV R4 RS 
9164 016204 000303 SWAB 83 
9165 016206 042703 177770 BIC #°C<7>,R3 sSTRIP 
9166 016212 005737 001372 TST MODE 71S THIS VTEST IN STAGGERED MODE? 
. 016216 100006 BPL 118 IF NOT, SKIP STAGGERED SETUP 
An 3WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 016220 006203 ASR R3 3GET THE unr BIT INTO THE CARRY BIT 
(1) 016222 103402 BCS 9% s1F IT IS SET, GO CLEAR IT 
(1) 016224 000261 SEC 3IF IT IS CLEAR SET IT HERE 


‘ 
— nee 
— — ——— — — — — 
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001374 


177400 


163542 


001374 
016030 
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— — 
2 
AH 
ee ee 


128: 


13$: 
14$: 


BR 360 
a INTERRUPT svc ROUTIN 


ga 10$ 

CLC 

ROL R3 

CMP R3.SAVLIN 

BEQ +4 

ERROR+ 15 

BIC #°C<377>,R4 

C 5,R4 

BEQ ~%4 

ERROR+ 5 

BIC R2,aDZVTCR 
138 

ERROR+ 

PoP2sP 

INC SAVLIN 

SHIFT 

JMP 


COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 


sSKIP_ THE CLEARING 

sCLEAR THE CARRY BIT oy we OF LINE PARITY) 
GET THE NEW BIT BACK INTO R3 

#18 THIS A VALID LINE 


YES 

3*INVALID LINE 
STRIP JUNK 
iDATA COMPARE ? 


YES 

TeDATA DOES NOT COMPARE 
CLEAR TCR BIT 

GET F OF INTERRUPT MODE 


sTHE RECEIVER INTERRUPT FAILED 
TO OVERRIDE THE TRANSMITTER 

sREMOVE THE mod gry 8 VECTOR FROM THE STACK 
ADJUST FOR NEXT LINE 
GET THE NEXT POINTER. IF DONE, ADVANCE 
sOTHERWISE GO DO THE NEXT LINE 





SEQ 79 


— — — — — — 
— — —— — — — — — — — 
— — — — — — — 


— — — — 4 


¢ 7 
SEQ 80 


| 
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9184 

9185 sERROR TABLE j 

9186 016302 000000 .ERRTAB: 0 ERROR 0 

9187 016304 000000 0 

9188 016306 000000 0 | 

9190 016310 016450 em SERROR 

9191 016312 017266 OHI 

9192 016314 017406 oT1 

9194 016316 016523 EM2 ERROR 2 

9195 016320 017312 OH2 

9196 016322 017420 p12 

9198 016324 016551 EM3 —s ; ERROR 3 

9199 016326 017345 OH3 

9200 016330 017436 oT3 

9202 016332 016610 ENG ERROR 4 

9203 016334 017345 OH3 

9204 016336 017436 b13 

9206 016340 016637 EMS ss ERROR 5 

9207 016342 017357 ONG | 

9208 016344 017444 DT4 

9210 016346 016666 EM6 —s ; ERROR 6 | 

9211 016350 017357 oͤn 

212 016352 017444 DT4 

9214 016354 016725 EM? —ss ERROR 7 

9215 016356 017345 On3 

9216 016360 017436 oT3 

9218 016362 016766 EM10 ERROR 10 | 

9219 016364 017345 ‘ On3 

9220 016366 017436 pT3 | 

9222 016370 017030 EM11 ERROR 11 

9223 016372 017345 OH3 

9226 016374 017436 pT3 | 

9226 016376 017066 EM12 ERROR 12 

9227 016400 017345 DH3 

9228 016402 017436 pT3 

9230 016404 000000 0 

9231 016406 000000 

9232 016410 000000 


M15 sERROR 15 
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EM17 sERROR 17 
DHS 




















017442 
017444 
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200 


002450 
001560 
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T1-MAR-83 10:13 PAGE 
10:06 


020117 
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003 


001 
001 
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s ERROR “issecfae 
EMI: ASCIZ <200>/NO BUS REPLY RESPONSE FROM DZV11 REGISTER/ 
EM2: “ASCIZ <500> REGISTER R/W FAILUR 
EMS: eASCIZ <20uU2/TRANSMIT READY CraDY) — SET/ 
EM: eASCIZ <200>/RECEIVER DONE NOT SET/ 
EMS: eASCIZ <200>/DATA COMPARISON ERROR/ 
EM6: eASCIZ <200>/DZV11 *RECEIVER BUFFER® ERROR/ 
EM7: eASCIZ <200>/TRANSMITTER FAILED TO INTERRUPT/ 
EM10:  .ASCIZ <200>/UNEXPECTED TRANSMITTER INTERRUPT/ 
EM11:  .ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ 
EM12:  .ASCIZ <200>/UNEXPECTED RECEIVER INTERRUPT/ 
EM15: .ASCIZ <200>/ACTION DETECTED ON INVALID he / 
EM17:  .ASCIZ <200>/DATA VALID SHOULD NOT BE SET/ 
EM20:  .ASCIZ <200>/RECEIVER DONE SHOULD NOT BE SET/ 


DH1: eASCIZ <200>/TRAP PC DZV11 REG/ 

DH2: eASCIZ han ae FOUND REGISTER/ 
DH3: eASCIZ <200>/LINE NO./ 

DH4: eASCIZ <200>/EXPECTED FOUND LINE/ 


-EVEN 
art — TABLES FOR ERROR MESSAGES 
BYTE 6,3 
SREG1 
-BYTE 6,1 
SREGO 
OT2: 
-BYTE 6,4 
SREGS 
-BYTE 6,1 
SREG4 
BYTE 6,1 
SREGO 
DT3: 1 
BYTE 3,1 
SAVLIN 
DT4: 
-BYTE 6,4 
EGS 
BYTE 6,1 
EG4 
BYTE 0 
SAVLIN 
EVEN 
TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 
DLYTBL: 2450 IME FOR 50 ~~ 
1560 ME FOR 


I 75 BA 
sTIME FOR 110 BAUD 
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9332 017512 
9333 017514 
9334 017516 
9335 017520 
93 

9337 

93 


000750 
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750 TIME 
660 s TIME 
330 3 TIME 
150 3s TIME 
311 

40 sTIME 
30 s TIME 

20 s TIME 
10 3s TIME 

1 3 TIME 

1 3s TIME 

1 3 TIME 


1 3 TIME 


FOR 134 BAUD 


9600 BAUD 
OF DELAY FOR 19200 BAUD 


sDELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT — BAUD RATE 
sFOR ALL TESTS TO FUNCTION CORRECTLY ON A LSI11 


SEQ 83 


6 7 
SEQ 84 
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9340 
9341 -SBTTL FALCON (KXT=11) UPGRADE ROUTINES. r:GPA 
9343 ; i THE af OLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTIC(S) 
9344 3 UN ON A FALCON (KXT=11) BASED SYSTEM. 
9345 ; 10 DETERNINE WHETHER WE°RE A FALCON OR NOT, WE'LL SIZE THE 1ST 3/6 OF 
9346 ; THE 1/0 PAGE (28k TO 31K). FALCON HAS 2KW LOCAL RAM AT 28x(44) TO 30k 
9347 3 AND A MACRO-ODT AT 30k TO 31k. CONSEQUENTLY, ALL 1/0 DEVICES MuST 
9348 : or PLACED BETWEEN 174000 AND 177776. ADDITIONALLY, WE'LL STRAP THE 
9349 3 EMT AND TRAP SERVICE ‘tis TO PRI6, AND SET THE HALT VECTOR SO THAT 
9350 : WE CAN STOP THE SUCKER ! 
9352 3 TO MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE, THE 
9353 3 BULK OF THIS CODE IS PLACED IN THE FLOATING VECTOR SPACE (400-776) 
93 : IF THE CPU AT HAND IS A FALCON (KXT11), IT STAYS THERE (NO HARM DONE). 
334 3; OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL **TRAP-CATCHER’’ STATE. 
9357 017522 005227 177777 FALCON: INC #1 : ONCE-ONLY !!! ::604 
9358 017526 001002 BNE 1$ GPA 
9359 017530 004737 000400 CALL KXTCHK : EXECUTE FALCON CHECK GPA 
9360 017534 005727 18: TST (PC) 3: TEST gg oy Be LAG... 33GPA 
9361 017536 000000 KXTFLAG: 0 SeeeNZ 8 FALCON’. 3364 
—* 017540 000207 RETURN 3-2eAND RETURN 10 CALLER... 33GPA 
9364 017542 $SvPC= . 33GPA 
9365 000400 = 400 : RESTORE FROM 374:376 AT END ::GPA 
9366 000400 005037 017536 KXTCHK: CLR KXTFLAG 3 ASSUME NUT FALCON. 33GPA 
9347 000404 013746 000004 MOV ars .-(SP) : SAVE ERROR VECTOR, :GPA 
9368 000410 012737 000504 000004 MOV 023,086 : SET A TRAP CATCHER. T:GPA 
9369 000416 012700 160010 MOV #160010,R0 : FALCON RAM STARTS AT 28K*4. ::GPA 
9370 000422 005720 1$: TST (RO)+ : S:GPA 
9371 000424 000240 240 3364 
9372 000426 020027 174000 CMP RO,#174000 ; SIZE TO 31K. 3364 
9373 000432 103773 BLO 1$ 3364 
9374 000434 010037 017536 MOV RO, KXTFLAG : MUST BE FALCON, SET THE FLAG ::GPA 
9375 000440 012700 000040 MOV #40,R0 : GET PRI? BIT... GPA 
9376 0004644 040037 000006 BIC RO,a86 teeeAND LOWER BUS-ERROR... 3364 
9377 000450 040037 000016 BIC RO,a816 ene Fae GPA 
9378 000454 040037 000022 BIC RO, a#22 peng ape TIGPA 
9379 040037 000032 BIC RO, a#32 2.0 0EMT.. S:GPA 
9380 000464 040037 000036 BIC RO, 0836 $<. eAND TRAP SERVICE TO PRI6 =: GPA 
9381 000670 012737 170000 000140 MOV #170000,a#140 ; ENABLE "BREAK" HALT. 3:GPA 
9382 000476 012637 000004 MOV (SP)+, 086 : RESTORE ERROR VECTOR... 33684 
9385 000502 000207 RETURN SeeeAND RET 73GPA 
9385 000504 012716 000512 28: MOV #38, (SP) : TRAP == NOT A FALCON... S2GPA 
9386 000510 000002 RTI 3. CONTINUE. S:GPA 
9387 000512 012637 000006 3S: MOV (SP)+, 006 : RESET ERROR VECTOR S:GPA 
9388 000516 012700 000402 MOV #402,R0 : SET-UP TO RESTORE. FLOATING... ::GPA 
9389 000522 013701 000376 MOV a#376,R1 seeeVECTORS (400 = 776). 33684 
9390 000526 2 MOV ; SAVE STACK POINTER IN R2 73GPA 
9391 000530 012704 000570 MOV #6$,R4 
9392 000534 014446 48: MOV -(R4) ,=(SP) 3 PUSH THE RESTORE CODE... 7:GPA 
9393 000536 020427 000546 CMP R458 3eeeONTO THE STACK. 33684 
93 000542 101374 BHI 3:GPA 


94 
9395 000544 010607 MOV SP,PC : AND EXECUTE IT. 33 GPA 











ee ry MACY11 30(1046) 


VDZAD.P11 


9431 


017542 


11-MAR-83 1 


023727 
001003 


000002 
017542 
000001 


T1-MAR-83 10:13 PAGE 13-1 
10:06 


177776 


000776 


FALCON (KXT=11) 


H 7 


UPGRADE ROUTINES. 33GPA 


; THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 


5s: MOV 


M0 
RETURN 
6$: 


RO.=2(R0) : RESTORE .42... 

R1, «ROD teeeHALT (OR [OT). 
(RO) +, (RO) + 

RO,#776 

5$ : LOOP "TIL DONE 
R2,SP : THEN RESTORE SP... 


3+eeAND RETURN TO CALLER 


; IF FALCON, THIS AREA ~A FREE FOR ANY PROGRAM UNIQUE 
; CHANGES OR DATA STRUCTURES. 
BE SURE THAT IT DOESN'T GET SCREWED UP !! 


SEQUENCE TO ACCEPT THE VALID FALCON R 


3 INIT $BASE AND SVECT1 AND TWEAK THE “SGETPAR™ CALLING 
j 


ALCINI: CMP SBASE , #ABASE : IS $BASE VIRGIN ?? 
BNE 1$ ; SKIP NEXT IF NOT 
MOV #174040,$BASE ; YES, SET ES DEFAULT 
1$: cMP SVECTI #AVECTI : IS SVECT1 VIRGIN 
BNE 2s 3 SKIP NEXT IF NOT 
MOV #370, $VECTI 3 YES, SET ENGINEERING DEFAULT 
2s: MOV #3$ ,GETCSR+2 : SUBSTITUE CSR TEXT... 
MOV #174000 ,GETCSR*6 
MOV #177770,GETCSR+10 ;...AND VALID RANGE. 
oe! #4. GETVEC#2 : SUBSTITUTE VECTOR TEXT... 
MOV #370,GETVEC+10 ;...AND VALID RANGE. 
RETURN : RETURN TO CALLER. 
3$: eASCIZ <200>"1ST CSR ADDRESS (174000:177770) ° 
4$: eASCIZ <200>"1ST VECTOR ADDRESS (000:370) , 
EVEN 
SFREE= <1000-.>/2 : FREE WORDS LEFT. 
-=$SVPC 
CORMAX 
END 


3 3GPA 


33GPA 
33GPA 
3 3GPA 





SEQ 85 








i Sa ee ee 


SEQ 86 
ee pay MACY11 o 11-MAR-83 10:13 PAGE 1 | 
VDZAD.P11 11-MAR=83 10:06 CROSS REFERENCE TABLE == USER SYMBOLS 
ABASE = 160010 83874 8730 9416 
ABORT 006610 87318 
ABORT? 0066446 87318 
ABORT2 006660 87314 
ACOW1 = 000017 83924 8730 
ACOW2 = 000000 8730 
CPUOP= 8730 
ACTIVE 001420 8730#* 8731+ 
ADDWO = 017470 83904 8730 
ADDW1 = 017470 83904 8730 
ADDWI0= 017470 83904 8730 
ADDW11= 017470 83904 8730 
ADDWI2= 017470 83904 8730 
ADDW13= 017470 83904 8730 
ADDWI4= 017470 83904 8730 
ADDW15= 017470 83908 8730 
ADDW2 = 017470 83904 8730 
ADDWS = 017470 83904 8730 
ADDWS = 017470 83904 8730 
ADDWS = 017470 83904 8730 
ADDW6 = 017470 83908 8730 
ADOW7 = 017470 83908 8730 
ADDWB = 017470 83908 8730 
ADDW9 = 017470 83904 8730 
ADEVCT= 000000 8730 
ADEVA = 000001 8393# 8730 
ADRCNT 006125 87314 
ADVANC= 104400 8731 8736 8810 








47 





SEQ 87 

CVDZA=D MACY11 30(1046) 11-MAR-83 10:13 PAGE 14- 
CVDZAD.P11 11-MAR-83 10:06 CROSS REFERENCE TABLE == USER SYMBOLS 
AUTO.S 011562 730 87314 

AVECTI= 000300 83914 8730 9419 
AVECT2= 000000 730 

BINWRD 006400 87314 

BITO = 000001 7304 8824 

1T00 = 000001 87304 

BITO1 = 000002 87308 
BITO2 = 000004 87304 
BIT03 = 000010 87304 
BIT04 = 000020 87304 
BITOS = 000040 87308 
B1T06 = 000100 87304 
BIT07 = 000200 87308 
BIT08 = 000400 87304 
BIT09 = 001000 87308 
BIT1 = 000002 87304 
B1T10 = 002000 87304 8793 
BIT11 = 004000 87304 8731 793 
BIT12 = 010000 87308 
B1T13 = 020000 87304 
BIT14 = 040000 87304 8731 
BIT1S5 = 100000 87304 
BIT2 = 000004 87304 
BITS = 000010 87308 
BIT4 = 000020 87308 8731 
BITS = 000040 87308 8731 
BIT6 = 000100 87304 
BIT7 = 000200 87304 8731 
BIT8 = 000400 87308 8755 
BIT9 = 001000 87308 8755 
BPTVEC= 000014 87304 
BRKO = 000400 87308 
BRK1 = 001000 87304 
BRK2 = 002000 87304 
BRKS = 004000 87304 

00472 8730 87314 

BUFSET= 104422 87308 10 

CHRCNT 006376 87314 

CLEAR = 000000 87308 9100" 91542 
CNVRT = 104412 87308 8731 

CONVRT= 104411 87308 8731 

CORMAX 017542 94408 9441 

coo 8=—. =: 000400 87308 

C01 = 001000 87308 

C02. == 002000 87308 

CO3 == 004000 87304 

cr = 000015 87308 8731 

CRLF = 000200 87308 8731 

CSRMAP 011570 87314 

CYCLE 010722 8730 87314 

ATABP 0071 87314 

DATAHD 007136 873148 

DCLASM= 104417 87308 8862 8928 9007 9073 9100 9112 
DCLR = 000020 87308 8731 8744 8765 8777 8784 8786 
ODISP = 177570 87304 

DELAY = 104414 87300 8755 8833 8841 8850 8878 8894 8941 8969 8984 9040 9087 


9025 


le ey MACY11 eee 


DEVAD 1 
DEVICE= 104413 
OHI 017266 


9135 






11-MAR-83 10:13 PAGE 14-2 
10:06 CROSS REFERENCE TABLE == USER SYMBOLS 


9143 
8753 


9215 
92768 


8882 


9216 
93018 
8890 9036 


8736 
896 
9147 











9100 






CVDZAD.P11 
001576 
1610 
011272 
002020 


EM17 077167 
EM2 016523 
E 017225 
EMS 016551 
EMG 016610 
EMS 016637 
m6 01 

En7 016725 
ERRMSG 007124 
ERROR = 104 


CVDZA-D MACY11 ae 


11-MAR-83 
10: 


— — — — — 









10:13 PAGE 14-3 
CROSS REFERENCE TABLE == USER SYMBOLS 


8736 868796 88313 
8736 8793 8898 8972 8996 9044 9091 9125 9162 


ot 87546 8755* 8850" 8871" 8905" 8936" 8954 8963" 9016 
8794" 8885" 8914" 8960" 9031" 9100" 9139¢ 

9100" 9118« 

9100" 9117 


8751 8753 8754 8755 8770 8776 8783 8= 8791 8793 8794 
8875 8881 8897 = 8901 8944 8967 8977, 8993-8997 0021 
9090 90 9149 89157 89158 


SEQ 89 


9053¢ 


CVDZA=D MACY11 30(1046) ion 10:13 PAGE 1 


CVDZAD.P11 11-MAR-83 1 
HDZVTC 002026 87304 87312  8832e 
HDZVTD 002036 873048 87312 90842 
HILIM 0061 87314⸗ 
KT = 000011 7304 8731 
INBUF 010616 87314 
INIFLG 001422 87304 8731e 
INSTER= 104404 87304 8731 
INSTR = 104403 87304 8731 
INSTR2 005720 87314 
IOTVEC= 000020 7308 87318 
XTC 000400 9359" 
KXTFLA 017536 8730 93614  9366e 
LF = 12 87304 8731 
LIMITS 006046 87314 
LINE 001366 87308 87312 8816 
LINEO 001504 87308" 
LINE1 001516 87308 
LINE1O0 001624 87308 
LINE11 0016 87 
LINE12 001650 87304 
LINE13 001 87308 
LINE14 001674 87304 
LINE15 001706 87304 
LINE16 001720 87308 
LINE17 001732 87308 
LINE2 001530 87304 
LINES 001542 87308 
LINES 001554 87304 
LINES 001566 87304 
LINE6 001600 87308 
LINE? 001612 873084 
LOBITS 006124 87314 
LOCK 001364 87304 87312 87362 
LOLIM 006116 87314⸗ 
LPRSET= 104421 87308 8863 8932 
LPO) 2 000000 873084 
LP1 == 000001 87308 
LP2 = = 000002 87308 
LPS) = = 000003 87308 
MAINT = 00001 


0 8730# 8731 8753 
8731 


9374* 


8850 


8753* 


9008 


8766 


CROSS REF ERENCE TABLE == USER SYMBOLS 


8840 
9095 


8869 8935 9014 9071 


8754e 88110 8839" 
9076 9100 9113 


8847* 


8779 


9100 


8850 


9121 


8861* 





9006 


9068+ 














001000 
MTSTN 010221 
MVECX 010171 
NEXT 001362 


NOLIST= eeeeee YJ 
ODDPAR= 000200 
000000 


POPRO = 600 
POP1SP= 005726 
POP2SP= 022626 


CVDZA-D MACY11 30(1046) 
CVDZAD.P11 11-MAR-83 1 


30# 
87308 


8731 
87314 


8731 


nN 7 


11-MAR-83 10:13 PAGE 1 
0:06 


4-5 
CROSS REFERENCE TABLE == USER SYMBOLS 
8736 «= «9100 «= 991169118 9123 


8808 8822 8887 9033 9080 9166 
8755 8766 8779 8850 8868 8937 9013 9078 9100 


8736* 8742e 8753* 8754* 8755"  8762* 8793" 8794" 8807+ 
9067* 9100" 9111* 


8930 8931" 8933* 8980 9074 9075 9077 


8736 6. 9100s: 9179 


——— ee — — — — — —— —1— 


9119 


8850* 


SEQ 91 


8861* 


— — — — — 


a9 
CVDZA-D MACY11 30(1046) J1-MAR-83 10:13 PAGE 14-6 seat 
CVDZAD.P11 T1-MAR=83 10:06 CROSS REFERENCE TABLE -- USER SYMBOLS 
PRO = 87308 
PRI = = 000040 87308 
PR2 = 000100 87304 
PRS == 000140 87304 
PR4 = 000200 87308 
PRS = 000240 87304 
PR6 = 000300 87 
PR7 = 000340 87308 
PS == 177776 87308 
= 177776 87 
SHRO= 010046 
PUSH1S= 005746 87308 
SH2S= 024646 87308 
PURVEC= 24 304 8731« 
RCVON = 010000 8730" 8931 
= 000200 87308 8755 
REGIST 001402 87308 
RESREG 007152 87314 
RESTAR 011266 87318 
RESVEC= 000010 
RESOS = 104410 87304 8731 
RIE = 000100 87304 8753 8766 8779 9100 9153 
RINGO = 000001 87304 
RING! = 000002 87308 
R = 000004 87304 
RINGS = 000010 87308 
RLO = 000000 87304 
RL1 == 000400 87304 
RL2 = 001000 87304 
RLS == 001400 87304 
RUN 1412 8730#* 8731* 
SAVACT 001410 8730#e 8731* 
SAVLIN 001374 8730@ 8850" 88660 8886 8906" 8927* 8976* 8992 8996" 9009" 9017 9032 9055 
9069* 9079 9097 9100" 9114e 9167 9180" 9299 9307 
SAVNO 001416 8730#* 8731 
091415 8730#e 8731* 
1404 87308  8731* 
SAVOS = 104407 87308 8731 ‘ 
SAV30 002152 8730#e 8731 
SAV32 002154 8730#* 8731 
SCOPE = 000004 87304 8731 8736 8702 8753 875. 8755 ss 8762 0—Sss«8793——ss« 8794 = 8807 8850 8861 


8925 9006 9067 9100 9111 


SCOP1 = 104401 87308 8736 87535 8754 8838 8846 8850 8903 8915 9048 9096 
SERV.G 007320 87314 

SETAPT 011434 8730" 87314 

SETFLG= 104406 87308 

SEVEN = 000020 87308 

SEVENS= 000060 87 

SHIFT = 104420 87304 8819 8850 8907 9056 9098 9181 
SILOAL= 020000 87 8755 

SILOEN= 010000 87308 8753 8766 

Six = 000010 87304 

SIxS = 000050 87 

SPACNT 006377 87314 

STACK = 001120 87308 8731 


STKLAT= 177776 87308 





¢ 8 


SEQ 93 
CVDZA-D MACY11 30(1046) 11-MAR-83 10:13 PAGE 14-7 
CVDZAD.P11 11-MAR=83 10:06 CROSS REFERENCE TABLE -- USER SYMBOLS 
STOP 001446 87308 8731 
SVOS 006134 87314 
SwR 001304 87304" 8731⸗ 
SWREG 000176 87308 
swO. = 000001 87308 
Sw0O = 000001 87508 
sw01 = 000002 87304 8731 
Sw02 = 000004 87308 
203 = 000010 87308 
sw04 = 000020 87304 
Sw0S = 000040 87308 
Sw06 = 000100 87308 
sw07 = 000200 87304 
sw08 = 000400 87304 8731 
sw0o9 = 007000 87304 8731 
Swi == 000002 87308 
Sw10 = 002000 87304 8731 
Swi1 = 004000 87308 
Swi2 = 010000 87308 8731 
swi3 = 020000 87304 8731 
swi4 = 040000 87304 
swi5 = 100000 87308 
Sw2 = 000004 87308 
Sw3 == 000010 87304 
sw4 = = 000020 87308 
SWS = = 000040 87308 
SW6 == 000100 87304 
sw7 = 000200 87308 
Ssw8 = 000400 87304 
sw9 = 001000 87304 
$110 = 001000 87308 
$1200 = 003400 87304 
$134 = 001400 87308 
$150 = 002000 87308 
$1 = 004000 87308 
$19200= 007400 87308 
$2000 = 004400 87304 
$2400 = 005000 87308 
$300 = 002400 87308 
s = 005400 87308 
$4800 = 006000 87308 
$50 = 000000 87308 
$600 = 005000 87308 
$7200 = 006400 87304 
$75 = 000400 87308 
$9600 = 007000 87304 
TBITVE= 000014 87308 
TCRO = 000001 87308 8754 
TCRI = 000002 87308 8754 
TCR2 = 000004 87308 8754 
TCRS = 000010 87308 875 
T 001426 87308 8731 9031 9035 9049" 9100 
—101 001430 87308 
102 001432 87308 
—103 001434 87308 
TEIGHT 002106 87 












CVDZA=D MACY11 30(1046) 11-MAR-83 10:13 PAGE 14-8 
CVDZAD.P11 11-MAR=83 10:06 CROSS REFERENCE TABLE == USER SYMBOLS 


TFIVE 002114 87308 
TIE = 040000 87308 8753 8766 9100 9152 
TKVEC = 000060 87308 
TLAST = 015740 8731 93148 
TLO ==: 000000 87308 
TL? == 000400 87308 
TL2 = 001000 87308 
TLS = = 001400 87308 
TATBL 002050 87308 
= 000064 87308 
TRAPVE= 000034 87304 


8755 8850 





SEQ 94 


SEQ 95 
ey MACY11 30(1046) 11-MAR-83 10:13 PAGE 14-9 
VOZAD.P11 11-MAR-83 10:06 CROSS REFERENCE TABLE == USER SYMBOLS 
UFD = 000040 87314 
UF DsEt= 000001 7308 
VECMAP 012102 87314 
VAKOR 002156 
WROCNT 006374 87314 
WTBS.F 007126 87314 
XBxX 00671 87314 
XCSR 004432 87314 
XERR 004454 87314 
XHEAD 010320 8730 87318 
XMTCNT 001400 87308 
XATLIN 001376 87308 
XPASS 004446 87314 
XSTATQ 010410 8730 87314 
XTSTN 007312 87314 
XVEC 004440 87314 
XX = 160210 873 
vv = 000500 87304 
72 = 000020 87308 
SAPTHD 001446 87308 
SASTAT= eeeeee Y 8731 
SATYC 005360 87314 
SATY1 005334 87314 
SATYS 005342 87314 
SATY4 005352 87314 
SAUTOB 001300 87304 
SBASE 001174 8730#e 8731" 9416 9418* 
SBDADR 001266 87308 
SBDDAT 001272 87304 
$COW1 001200 87304 8731 
Scow2 001202 87304  8731* 
SCHARC 005330 87314 
SCMTAG 001244 87 
Scmi = 87304 
SCM2 = 000014 87308 
SCAMS = 000006 87308 
SCM4 = 000005 87308 
SCPUOP 001146 87308 
SCRLF 001357 87308 8731 
SoDwO 001204 87304 8731 
001206 87304 
$00W10 001230 87304 
$00W11 001232 87308 
SODW12 001234 87308 
SOdW13 001236 87304 
SODW14 001240 8 
$00W15 001242 87308 
SODW2 001210 87308 
$oow3 001212 87308 
$00W4 001214 87308 
$00WS 001216 87308 
SODW6 220 87308 
$00W7 001222 87308 
$ODW8B 001224 87304 
$ODW9 001226 87308 
SOEVCT 1130 87308 8731* 









ee gl MACY11 30(1046) 11-MAR-83 10:13 PAGE 14- 
83 10:06 


10 
CROSS REFERENCE TABLE == USER SYMBOLS 


87948 88078 


87618 87938 
90664 91008 
















Q 97 
hee ry MACY11 30(1046) 11-MAR-83 10:13 PAGE 14-1 - 


ZAD.P11 11-MAR=-83 10:06 CROSS REF ERENCE TABLE == USER SYMBOLS 
SAXCNT 004724 
$n = s =: 000020 87364 8737 87428 87538 875468 87558 8756 87628 87938 87948 8796 8807⸗ 
8851 88614 8918 89258 9000 9006 9060  9067# 91008 9102 91118 93118 
SNULL 001320 8731 
SNWTST= 000000 hg ‘Obs Bt 87548 8755@ 87628 87938 87948 88078 $8508 88618 89258 90068 


SOVER 
SPASS 


9295 
9305 
9303 


8736 868742 88753 = 8754 8755 8762 88793 = 879% 8807 8850 
9067 9100S 9111 


Sie 87548 8755@ 87628 87938 87948 88078 88500 88610 80925⸗ 


8742¢ 8753*¢ B754e 8755" 8762" 8793 8794e 8807 8850" 8861 
9100" 911le 


94218 












CVDZAD.P11 
SVECT2 001172 
23 


. = 017542 
AD 006476 


-$X == 001446 


CVDZA-D MACY11 whe B 


752 
* SASTA= eeeeee 





T1-MAR-83 10:13 PAGE 14-1 
10.08 E 2 


87314 
87314 


9126 


9129 


9148 


9168 


CROSS REFERENCE TABLE == USER SYMBOLS 


9172 


9364 


9365@ 





9434 


94398 


ee ry MACY11 whe B 






11-MAR-83 10:13 PAGE 15 
10:06 CROSS REFERENCE TABLE == MACRO NAMES 


8731 
9100 


8731 


8731 


8794 


9033 


8742 








i ee — 


8794 8807 8850 


8793 8794 8807 


8807 8850 8861 





J 8 
SEQ 100 
CVDZA-D MACY11 30(1046) 11-MAR-83 10:13 PAGE 15-1 

CVDZAD.P11 11-MAR=83 10:06 CROSS REFERENCE TABLE == MACRO NAMES 


SUNIBU 

SVARIA 65664 8730 

$xz 79618 8736 8737 8741 8753 8754 8755 8756 8761 8793 8796 8796 8805 8850 8851 
8918 8926 9000 9005 9060 66 9100 9102 9110 


SSNEWT he 8750# 8736 8742 8753 8754 8755 8762 8793 8796 98807 8850 98861 8925 9006 


9100 9111 

SSSKIP 17308 87308 
° T 1914 65184 8730 

ADE 674 65174 8730 
oKT11 33 
eSETUP 12138 65178 
-SWRHI 1084 
-SACT1 65194 8730 
: B 51334 65198 87304 
-SAPTH 5 65194 87 
-SAPTY 5 65198 8731 
-SASTA 56334 


m 47268 

$0820 48474 

-SDIV 46308 

. SEOP 21854 65178 8731 
SER 26648 65188 
SERRT 29198 

: T 65684 

-SPOWE 42648 65188 8731 
SRAND 43184 

: 39188 

oSREAD 34278 

eSR2AZ 4 

-SSAVE 39928 


$820 49084 
~SSCOP 24198 6518# 8731 


49458 
»STRAP 40938 65184 
-STYPB «5353214 
-STYPD 32458 
oSTYPE 3005@ 65178 8731 
-STYPO 31508 

a 95 

1170 Sila 


- ABS. 017542 000 


ERRORS DETECTED: 0 
CVDZAD ,.CVDZAD/Ni : TOC/CRF =SYSMC.SML.CVDZAD.P11 





kK 8 
SEQ 101 
eg py MACY11 30(1046) 11-MAR-83 10:13 PAGE 15-2 
VOZAD.P11 11-MAR=83 10:06 CROSS REFERENCE TABLE == MACRO NAMES 


RUN-TIME: 16 20 1 SECONDS 
RUN-TIME RATIO: 415/38=10.9 
CORE USED: 54k (108 PAGES) 





